Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Hide All Toolbars

Sub HideAllToolbars()     Dim TB As CommandBar     Dim TBNum As Integer     Dim mySheet As Worksheet     Set mySheet = Sheets("mySheet")     Application.ScreenUpdating = False     mySheet.Cells.Clear          TBNum = 0     For Each TB In CommandBars         If TB.Type = msoBarTypeNormal Then             If TB.Visible Then                 TBNum = TBNum + 1                 TB.Visible = False                 mySheet.Cells(TBNum, 1) = TB.Name             End If         End If     Next TB     Application.ScreenUpdating = True End Sub