Macro to show a message box if even one cell in a row is blank

Hi,

I have created a macro that highlights all blank cells in a row to be highlighted in purple background using conditional formatting.
What I am struggling with is that I need a macro to show a message box if even one cells in a row from A2:AI2 is blank and is highlighted in the purple colour conditional formatting.
If there are no blank cells in the row (only till AI2) I want it to state "Completed" and if even one cell is blank from A2:AI2, it should show a message box stating "Please fill all blank cells highlighted in purple"

This is very urgent so I would appreciate your help.

Thanks,
Pat

Sorry Guys

The above code will not check for the colour purple. Try This instead.

Please Login or Register  to view this content.

Palmetto, your code worked perfectly!!!
Thank you so much

I need to tweak this formula slightly to pick up a variable range. Instead of (A2:AI2), I want to select A2:AI2 and then select all visible rows below row 2 if column A is not blank.
So, if B3 had any text in it, the macro should also check A3:AI3 and so on..

Can anyone help me tweak the code to include this variable range?

I need to tweak this formula slightly to pick up a variable range. Instead of (A2:AI2), I want to select A2:AI2 and then select all visible rows below row 2 if column A is not blank.
So, if B3 had any text in it, the macro should also check A3:AI3 and so on..

Can anyone help me tweak the code to include this variable range?

Thanks, Palmetto. Once again your code works perfectly
I only wanted to make one change to it. The macro runs all the way to "Completed" even if there are blank cells present in the variable range.
Would it be possible to make it stop if there are blank cells present and only show the "Completed" message box if all blank cells are filled in.
I do not know how to make the if function work in the code.. here's what I tried:

Please Login or Register  to view this content.

Pat