looping from worksheet to worksheet

Hi there
I am trying to run a row delete macro on all worksheets in an Excel document and I can't get it to work. I tried select all sheets and running the macro and all creating a loop and running it but the only thing that seems to be working is the row unhide and not the delete rows based on a cell Value. It's only grabbing the first worksheet and running the delete row based on cell value. Can anyone help? Here is the start of my macro.

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
With ws
.Rows("1:5000").Hidden = False
End With
Next ws

For Each ws In ActiveWorkbook.Worksheets
With ws
With Range("D1", Range("D" & Rows.Count).End(xlUp))
.AutoFilter Field:=1, Criteria1:="*SOLD*"
.Offset(1).EntireRow.Delete
.AutoFilter
End With
Next ws

End Sub


End Sub

Missing leadng periods.

Please Login or Register  to view this content.

Originally Posted by Melissalee71

IT WORKS!! Thanks

What do the leading periods accomplish because my code worked before but just not when I tried to "loop" it worksheet to worksheet?

You're welcome.

The leading periods reference back to the WS object in the previous With statement. Without the periods, the two Range references have no qualified worksheet. So they default to the Active sheet which doesn't change in your macro. With the periods, the two range references use the WS object in the With statement.

Please Login or Register  to view this content.