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