[font=Courier New][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]
[color=darkblue]Sub[/color] HideButtons()
[color=darkblue]Dim[/color] ButtonName [color=darkblue]As[/color] [color=darkblue]Variant[/color]
[color=darkblue]Dim[/color] ButtonNames [color=darkblue]As[/color] [color=darkblue]Variant[/color]
[color=green]' Change/add button names accordingly[/color]
ButtonNames = Array("Button 2", "Button 3", "Button 4")
[color=darkblue]For[/color] [color=darkblue]Each[/color] ButtonName [color=darkblue]In[/color] ButtonNames
ActiveSheet.Buttons(ButtonName).Visible = [color=darkblue]False[/color]
[color=darkblue]Next[/color] ButtonName
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]