Public Sub ToggleHeadingsGrids()
    Dim gridMode&, headingsMode&
    On Error Resume Next
    headingsMode = ActiveWindow.DisplayHeadings
    gridMode = ActiveWindow.DisplayGridlines
    If headingsMode And Not gridMode Then
        headingsMode = False
    ElseIf Not headingsMode And Not gridMode Then
        gridMode = True
    ElseIf Not headingsMode And gridMode Then
        headingsMode = True
    Else
        gridMode = False
    End If
    ActiveWindow.DisplayHeadings = headingsMode
    ActiveWindow.DisplayGridlines = gridMode
End Sub