i want a code like this

if any row (part of row) in range XX is empty then
do yy....

thank you
rozent

Dim myRng as range
dim myRow as range
dim delRng as range

set myrng = activesheet.range("a1:x99")

for each myrow in myrng.rows
if application.counta(myrow) < myrow.cells.count then
'at least one really empty cell.
'do what you want
'if you're deleting
if delrng is nothing then
set delrng = myrow.cells(1)
else
set delrng = union(delrng,myrow.cells(1))
end if
end if
next myrow

if delrng is nothing then
'do nothing
else
delrng.entirerow.delete
end if

????? wrote:

i want a code like this

if any row (part of row) in range XX is empty then
do yy....

thank you
rozent

--

Dave Peterson