for each cell in range("A10:A15")
if isempty(cell) then cell.offset(0,1).Select
userform1.show
end if
Next

--
Regards,
Tom Ogilvy

"damorrison" wrote in message
oups.com...
I would like to have a macro that searches the range Say A10:A15 if
there is a value in A10 then goto B10 do what I have to do in a
userform then click ok, then it goes to see if there is a value in the
next row