Hi All,
I am trying to write a code to delete empty cells far a set of data
range:
Sub mysub()
Dim rRange As Range
Set rRange = Sheet1("E1:E150")
With rRange
If cell.Value = "" Then
ActiveCell.Delete shift:=xlUp
End If
End With
End Sub
Appreciate your help.
Thanks
Syed
--
saziz
------------------------------------------------------------------------
saziz's Profile:
http://www.excelforum.com/member.php...fo&userid=6350
View this thread:
http://www.excelforum.com/showthread...hreadid=498504