There is another way to protect your worksheet name, I use this all the time to maintain the integrity of my workbook.
It can be done in Workbook BeforeClose or BeforeSave option
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WS As Worksheet
Dim WSCount As Integer
Dim...
The difference between SkipVought's code and the one you used is,
The one that worked for you assumes a Default value of 0, if nothing is passed as an argument or a Null Value is passed.
So having G1=0 obviously will give you an infinite value for the following operation,
If (A1 / G1 > 2). You...
Not sure exactly what you are looking for. But here is one app which shows the necessary codes and standards
by equipment type,
Engineering Codes & Standards
Hope this helps.