Hi Ron
Thanks very much, that worked a treat
Cheers
Fos
----- Ron de Bruin wrote: ----
Try this Fos
Sub Example1(
Dim Firstrow As Lon
Dim Lastrow As Lon
Dim Lrow As Lon
Dim CalcMode As Lon
With Applicatio
CalcMode = .Calculatio
.Calculation = xlCalculationManua
.ScreenUpdating = Fals
End Wit
Firstrow = ActiveSheet.UsedRange.Cells(1).Ro
Lastrow = ActiveSheet.UsedRange.Rows.Count + Firstrow -
With ActiveShee
.DisplayPageBreaks = Fals
For Lrow = Lastrow To Firstrow Step -
If Application.CountA(.Rows(Lrow)) = 0 Then .Rows(Lrow).Delet
'This will delete the row if the whole row is empty (all columns
Nex
End Wit
With Applicatio
.ScreenUpdating = Tru
.Calculation = CalcMod
End Wit
End Su
--
Regards Ron de Brui
http://www.rondebruin.n
"Foss" wrote in message ..
Good afternoon all
Does anyone have something nice and quick that can delete all empty rows in the UsedRange
Thanks for your time
Fos