Delete rows in multiples sheets

[edsonpaula]

Hello,
I need to create a macro to delete rows from A3 till the last line for specifics sheets (that I'll specify in the macro), I have created a macro for delete, but I'm having trouble creating a macro that runs this deletion for a range of sheets.
perhaps there is a better way of doing it.
here the code that I create for the deletion

Private Sub DeleteRows()
   
    Range("A3:AC3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Delete
End Sub

Thank you very much

 

[Fluff]

How many sheets do you want this to work on & how many sheets should be left alone?

 

[edsonpaula]

How many sheets do you want this to work on & how many sheets should be left alone?

I'll delete 7 sheets and 3 will be left alone! thank you!

 

[Fluff]

Ok how about

Private Sub DeleteRows()
   Dim ws As Worksheet
   
   For Each ws In Worksheets
      Select Case ws.Name
         Case "Sheet1", "Sheet2", "Sheet3"
         Case Else
            ws.Range("A3:AC" & ws.Range("A" & Rows.Count).End(xlUp).Row).EntireRow.Delete
      End Select
   Next ws
End Sub

Change Sheet1 etc to she names of the sheets that should be left alone.

 

[edsonpaula]

Ok how about

Private Sub DeleteRows()
   Dim ws As Worksheet
  
   For Each ws In Worksheets
      Select Case ws.Name
         Case "Sheet1", "Sheet2", "Sheet3"
         Case Else
            ws.Range("A3:AC" & ws.Range("A" & Rows.Count).End(xlUp).Row).EntireRow.Delete
      End Select
   Next ws
End Sub

Change Sheet1 etc to she names of the sheets that should be left alone.

I can't express how grateful I'm for your help!
Thank you very much for the help, I'm doing some udemy courses to improve my skills!

regards,
Edson

 

[Fluff]

You're welcome & thanks for the feedback.