View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
jmagdziarz jmagdziarz is offline
external usenet poster
 
Posts: 1
Default Deleting blank rows in a range or another fill approach


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