VBA Code is not cycling through all worksheets

[bjcowen9000]

Hello, I am trying to get my code to cycle through all worksheets. Can someone please help me? This is what I have:

Sub DeleteRowWithContents()

Dim ws As Worksheet
For Each ws in Worksheets

Last = Cells(Rows.Count, "C").End(xlUp).Row
For i = Last To 1 Step -1
If (Cells(i, "C").Value) <> "01" Then

Cells(i, "A").EntireRow.Delete
End If
Next i
Next ws
End Sub

Maybe it has to do with having two "Next's" in a row?

Ben

[Norie]

Ben

The code is looping through all the worksheets, but the code within the loop is only referencing the active sheet.

Please Login or Register  to view this content.

[bjcowen9000]

Do you know how I fix this error? The code you posted only did the one worksheet

[bjcowen9000]

Works! Thanks!

[bjcowen9000]

Actually, one more question: Do you how to start this formula on row 2? I do not want it to mess up my row 1

[Norie]

The code I posted should fix the error as it makes sure that the code within the loop is referencing the correct worksheet.

When I test the code it deletes all rows without "01" in column C on all the worksheets.

[bjcowen9000]

Yes, thanks. Works great! I really appreciate it! Do you also know how I might start the code on row 2 rather than row 1? Just realized it is deleting my header on row 1

[Norie]

Change the loop to end on 2 instead of 1.