Simplifying Code Using For-Next Loop

[inwalkedbud]

Looking to simplify the following code possibly with For-Next Loop.

Sub Simplify()

With Workbooks("Book1")
     
     .Sheets("Sheet1").Activate
     Call MySub_1

     .Sheets("Sheet2").Activate
     Call MySub_2

     .Sheets("Sheet3").Activate
     Call MySub_3

     .Sheets("Sheet4").Activate
     Call MySub_4

End With

End Sub

Where the My Subs are private sub procedures. Thanks.