Habilitar barra horizontal do Excel

Neste exemplo o mesmo botão habilita e desabilita a barra de rolagem horizontal do Excel.

Sub barraHorizontal()

ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar

End Sub