Multiple Macro scripts with 1 command button

[Jus10fl84]

Greetings,

I'm trying to have two VBA statements run with 1 command button in my excel workbook. is that possible? I'm VERY new to VBA and macro's and I do not have a reference book handy at the moment. any tips would be grateful!



Sub Enable_events()
Application.EnableEvents = True
End Sub


Private Sub CommandButton1_Click()
'Protect worksheet with a password
Sheets("Cover").Protect Password:="SPPF"


End If


Sub Unhide_Multiple_Sheets()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws


End Sub

 

[Joe4]

Welcome to the Board!

I am assuming that you want to run both "Enable_events" and "Unhide_Multiple_Sheets" when you click Command Button 1.
That is pretty easy to do. Just do this:

[COLOR=#333333]Private Sub CommandButton1_Click()[/COLOR]

     Enable_events
     Unhide_Multiple_Sheets

[COLOR=#333333]End If[/COLOR]

You can also add whatever other code you want to that as well (like your original code). You just want to be sure to put everything in a logicial order so everything processes properly, based on your requirements.