How can you run a macro in multiple sheets (same workbook) at once???

Need to do this...

Loop through them

Dim ws As Worksheet
For Each ws In Worksheets
    MsgBox ws.Name
Next

Originally Posted by jason.b75

Loop through them

Dim ws As Worksheet
For Each ws In Worksheets
    MsgBox ws.Name
Next

Fantastic, thanks. How do I combine this with a macri I already have?
I have this:

Sub DeleteRows()
    Range("A2").Select
    Do Until ActiveCell.Value = ""
        If ActiveCell.Value <> "Art" Then
            ActiveCell.EntireRow.Delete
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop
End Sub

A slightly different method, this does the whole sheet at once instead of one row at a time.

Sub DeleteRows()
Dim ws As Worksheet, c As Range
For Each ws In Worksheets
    With ws.UsedRange
        .AutoFilter , Field:=1, Criteria1:="<>art"
        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
ws.AutoFilterMode = False
Next
End Sub