rnum = 'insert start row number here

Range("A" & rnum).select
while activecell <""
do
if activecell.offset(0,1) = "" then
entirerow.delete
else
rnum = rnum + 1
end if
Range("A" & rnum).select
loop until activecell = ""
Wend


bm4466 Wrote:
Hey could anybody help me with a script for deleting a row from a sheet
if its second column is empty?

I would appreciate it, Ben


--
pianoman
------------------------------------------------------------------------
pianoman's Profile: http://www.excelforum.com/member.php...o&userid=33712
View this thread: http://www.excelforum.com/showthread...hreadid=548594