Apply Criteria Based Row Macro in Multiple Sheet

[liarliar]

Hi,

I have a macro which is working for each sheet at a time but I want to use the same for all the sheets. This macro is used for deleteing blank rows . All the sheets have date as the name. Ex: 12.07.08 like wise....


Sub DeleteRow()

Dim c As Range
Dim SrchRng

Set SrchRng = ActiveSheet.Range("d1", ActiveSheet.Range("d65536").End(xlUp))
Do
Set c = SrchRng.Find("2", LookIn:=xlValues)
If Not c Is Nothing Then c.EntireRow.Delete
Loop While Not c Is Nothing
ActiveSheet.Previous.Select
End Sub

[royUK]

Please Edit with Code Tags