Sorry, I misread the question, (Cower!)
"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
Rashid,

Put this in the same module, then run it

Sub DoAllSheets()

Dim mySht As Worksheet

For Each mySht In Activeworkbook.Worksheets
mySht.Select
mySht.UsedRange.Select
DeleteBlankRows
Next mySht
End Sub


HTH,
Bernie
MS Excel MVP

"Rashid Khan" wrote in message
...
Hello All,
I have obtained the following macros from Chip Pearson's Website which
deletes BlankRows.... and it is excellent.

Public Sub DeleteBlankRows()'chip PearsonDim R As LongDim C As RangeDim
N
As
LongDim rng As Range On Error GoTo EndMacroApplication.ScreenUpdating =
FalseApplication.Calculation = xlCalculationManual If
Selection.Rows.Count

1 Then Set rng = SelectionElse Set rng =
ActiveSheet.UsedRange.RowsEnd
IfN = 0For R = rng.Rows.Count To 1 Step -1 If
Application.WorksheetFunction.CountA(rng.Rows(R).E ntireRow) = 0 Then
rng.Rows(R).EntireRow.Delete N = N + 1 End IfNext
REndMacro:Application.ScreenUpdating = TrueApplication.Calculation =
xlCalculationAutomaticEnd Sub
But I wish it to run the above macro on all the Sheets in my Workbook.
Somethin like.
For z = 1 To Sheets.Count
' Sheets(z).Activate
' do Row Deleting here
'Next

But I have failed in all experiments.. Can somebody suggest a way of how
to
implement Chip Pearson's macro to run on all the Worksheets in the
Workbook