Here's one option:
Sub DeleteBlankRows()
Dim rownum As Integer
rownum = 1
Do Until rownum = 101
cellloc = "DX" & rownum
Range(cellloc).Select
If Range(cellloc).Value = "" Then
Rows(rownum).Select
Selection.Delete Shift:=xlUp
Else
End If
rownum = rownum + 1
Loop
Range("A1").Select
End Sub
--
jmagdziarz
------------------------------------------------------------------------
jmagdziarz's Profile:
http://www.excelforum.com/member.php...o&userid=23108
View this thread:
http://www.excelforum.com/showthread...hreadid=376074