The example toggles both scroll bars on or off….

To toggle just the Horizontal scrollbar, delete the Vertical code,, and vice versa.

This just toggles the vertical bar:

Sub ToggVertOFF()
   With ActiveWindow
        .DisplayVerticalScrollBar = False
   End With
End Sub
Sub ToggVertON()
   With ActiveWindow
        .DisplayVerticalScrollBar = True
   End With
End Sub

Sub ToggHorizBarl()
‘ This example toggles the horizontal scroll bar of the actual window
Dim winTemp As Window
Set winTemp = ActiveWindow
winTemp.DisplayHorizontalScrollBar = _
Not winTemp.DisplayHorizontalScrollBar
End Sub