Determines the number of subdivisions between grid marks. When this property is set to 0 (zero), spacing is automatic. Example:

Sub CommandButton1_Click()
  Set E3Chart1 = Screen.Item("E3Chart1")
  Old = E3Chart1.VerTickUnit
  For i = 0 To 30 Step 10
    E3Chart1.VerTickUnit = i
    MsgBox "E3Chart1.VerTickUnit = " & CStr(i)
  Next
  MsgBox "Return"
  E3Chart1.VerTickUnit = Old
End Sub