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