VBA to run multiple macros on different sheets

[ldaly4]

I have 6 macros that I was to run sequentially however I'd like to run the first 4 on one shirt, open the second sheet and then run the last two macros. Macro 5 copies information from sheet one to sheet two. I would like to have one button that can do all of this in one go. I will attach the VBA code I've tried so far below - this does all of the commands but doesn't move on to the next sheet

Sub Button1_Click()

    With Sheet7
        Call Macro1 'Macro1
        Call Macro2 'Macro2
        Call Macro3 'Macro3
        Call Macro4 'Macro4
        
    End With
   
     With Sheet8
        Call Macro5 'Macro5
        Call Macro6 'Macro6
End With
End sub
        
    End With
    
End Sub

 

[ldaly4]

Edit code:

Sub Button1_Click()

    With Sheet7
        Call Macro1 'Macro1
        Call Macro2 'Macro2
        Call Macro3 'Macro3
        Call Macro4 'Macro4
        
    End With
   
     With Sheet8
        Call Macro5 'Macro5
        Call Macro6 'Macro6

    End With
    
End Sub

 

[Alex Blakenburg]

Your With Sheet / End with lines are not actually doing anything.

The below seems to be what you are trying to do. Not ideal coding practice, the macros should not require the sheets to be activated but it sounds like they do.
Also you are using the Sheet code name which can be different to the name the user sees and that is fine as long as you understand that.

Sub Button1_Click()

    Application.ScreenUpdating = False
    Dim wsCurrent As Worksheet
    Set wsCurrent = ActiveSheet
    
    Sheet7.Activate
        Call Macro1 'Macro1
        Call Macro2 'Macro2
        Call Macro3 'Macro3
        Call Macro4 'Macro4
   
    Sheet8.Activate
        Call Macro5 'Macro5
        Call Macro6 'Macro6

    wsCurrent.Activate
    Application.ScreenUpdating = True
End Sub