Restore Toolbars : Excel Toolbar « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Excel Toolbar

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

 

Related examples in the same category