CODEWITHSUNDEEP
vbaexcel
Joseph Spagnuolo
Joseph Spagnuolo

Reputation: 3

Edit all worksheets except Sheet1

I've got a script that deletes rows 1-4 on on every worksheet, but would like it to skip a worksheet if its name is "Sheet1"

Sub RowDelete()
    Dim xWs As Worksheet
    Set xWs = ActiveSheet
    ThisWorkbook.Worksheets.Select
    Rows("1:4").Select
    Selection.Delete
    xWs.Select
End Sub

Upvotes: 0

Views: 90

Answers (1)

VBA Pete
VBA Pete

Reputation: 2666

Run it through a FOR EACH Loop:

Sub RowDelete()

    Dim xWs As Worksheet
        For Each xWs In Worksheets
            If xWs.Name <> "Sheet1" Then
            xWs.Rows("1:4").Delete
            End If
    Next xWs
End Sub

Btw, try to learn coding without using .Select.

Upvotes: 3

Related Questions