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