Modeless but waiting form

[Patrick Molloy]

for r = 1 to lastcell

if cells(r,1) = 0 then

if msgbox("Delete?",vbYesNo,"Zero Value") = vbYes Then

'delete the record
end if
end if
next r

Patrik Molloy
Microsoft Excel MVP