Try this. JSW
Sub DRow()
'Find all the rows for which column "A" = "" and delete it.
Application.ScreenUpdating = False
Worksheets("Sheet1").Select
Range("A1").Select
For Each r In Worksheets("Sheet1").UsedRange.Rows
n = r.Row
If Worksheets("Sheet1").Cells(n, 1) = "" Then
Worksheets("Sheet1").Cells(n, 1).Select
Selection.EntireRow.Delete
End If
Next r
Application.ScreenUpdating = True
'Range("A1").Select
End Sub
This message was edited by Joe Was on 2002-04-25 10:10