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