Run the following macro on all worksheets but sheet1

[dms2228]

Hi All,

I'm new to programming. I am trying to run the following macro on all worksheets except sheet1.

Sub Rowdelete()
 Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
   If (Range("E" & i) = "0" And Range("G" & i) = "0" And Range("I" & i) = "0") Then Rows(i).Delete
Next i
End Sub

Any help would be appreciated!!!

[oeldere]

You can try this one on a copy of your sheet (untested).

Please reply.

Sub Rowdelete()
 Dim LR As Long, i As Long

For Each Sh In Sheets
        With Sh
            If .Name <> "sheet1" Then

LR = Range("A" & Rows.Count).End(xlUp).Row
 For i = LR To 1 Step -1
 If (Range("E" & i) = "0" And Range("G" & i) = "0" And Range("I" & i) = "0") Then Rows(i).Delete
 Next i

End  if

End with
 End Sub

[HaHoBe]

Hi, dms2228,

please add code tags to the procedure.

Sub Rowdelete()
Dim LR As Long, i As Long
If ActiveSheet.Name <> "Sheet1" Then
  LR = Range("A" & Rows.Count).End(xlUp).row
  For i = LR To 1 Step -1
    If (Range("E" & i) = "0" And Range("G" & i) = "0" And Range("I" & i) = "0") Then Rows(i).Delete
  Next i
End If
End Sub

Ciao,
Holger

[AB33]

Please use code tags as per forum's rule.

Sub Rowdelete()
 Dim LR As Long, i As Long
 For Each ws In ThisWorkbook.Worksheets
    With ws
        If .Name <> "Sheet1" Then
           LR = .Range("A" & .Rows.Count).End(xlUp).Row
            For i = LR To 1 Step -1
               If (.Range("E" & i) = "0" And .Range("G" & i) = "0" And .Range("I" & i) = "0") Then .Rows(i).Delete
            Next i
        End If
    End With
  Next ws
 End Sub

[dms2228]

Thanks everyone. Sorry for the code tag mishap!

[AB33]

Oeldere,
Funny! I did not see your code when I pasted mine. There must be some echo on this site.