Here is a macro to try:


Sub gsnu()
Dim j As Long
Dim i As Long
Dim r As Range
Dim r2 As Range
Set r2 = ActiveSheet.UsedRange

j = r2.Rows.Count + r2.Row - 1
For i = 1 To j
If Application.CountA(Rows(i)) = 0 Then
If r Is Nothing Then
Set r = Rows(i)
Else
Set r = Union(r, Rows(i))
End If
End If
Next i

If Not r Is Nothing Then
r.EntireRow.Delete
End If
End Sub

to use the macro see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm
--
Gary's Student


"Anita" wrote:

Is it possible either with or without code, to delete all the blank rows in a
worksheet.

I have a worksheet with data occupying 46000 rows and need to delete all
blank rows in between.

I am not a VB developer so if the solution is code then I will need specific
instructions on how to run it, where to put it etc.

I am using excel v2000.

Any help will be greatly appreciated.

Thanks

Anita