Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Restore tool bar

Sub RestoreToolbars()     Dim toolBarSheet As Worksheet     Set toolBarSheet = Sheets("toolBarSheet")     Application.ScreenUpdating = False     On Error Resume Next     For Each Cell In toolBarSheet.range("A:A") _       .SpecialCells(xlCellTypeConstants)         CommandBars(Cell.value).Visible = True     Next Cell     Application.ScreenUpdating = True End Sub