Hello everybody.

I have a macro that checks for column A2 to A12 and if data is found (text) the column B2 to B12 must have a numeric value.

In other words, if A2 has got text then B2 must have a numeric value and so on, if not stop macro.

There is the following code;

for each cel in range("a:a")
if isempty(cel) then exit for ' finish on empty cell
if isempty(cel.offset(,1)) then cel.offset(,1).value = msgbox("enter a quantity for " & cel)
next

there is one issue.

The macro is returning the error when finding a row with text and no value on same line for column B but when I click OK it sends a 1 to the empty field.

Can I have the focus set to the next empty cell please?

If possible when error found either focus on the empty cell or a msgBox asking for the quantity and having it filling it up as going through all the lines. Thank you.

I must say I thought this to be the most complicated code of all I have but is quite simple or I mean a few lines and its doing waht I though to be many lines of code.

Thank you.
Albert