Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Restore Toolbars

Sub RestoreToolbars()     Dim mySheet As Worksheet     Set mySheet = Sheets("mySheet")     Application.ScreenUpdating = False     On Error Resume Next     For Each cell In mySheet.Range("A:A").SpecialCells(xlCellTypeConstants)         CommandBars(cell.Value).Visible = True     Next cell     Application.ScreenUpdating = True End Sub