VBA IF Statement to return MsgBox if True and Stop Macro

Hello,

I am trying to wrirte a simple IF statement in VBA code, but it has become more challenging than expected. I have a column (column D) within a work sheet called "custom cost sheet". Column D lists whether a cost is correct or not. I want to create a VBA code that will scroll through Column D in search for the word "incorrect cost", if the word exists I want a Msgbox to appear stating "cost error, fix cost and recalculate" and then stop the macro from continuing. I just want the Msgbox to appear for the first cell it finds containing "incorrect cost", not each cell. If the text is not found within the column, I want the macro to continue and finish running.

Any help with this would be extremely appreciated.

Thanks in advance!

Rene

Hello and welcome to the forum.

First of all avoid loops like the plague wherever you can and use standard Excel functionality like formulas or filtering etc. Loops are generally less efficient.

In this case just add the following formula in a spare cell and name the cell say 'check'
=IFERROR(MATCH("incorrect cost",D:D,False),"error")

Now the macro will be

Please Login or Register  to view this content.

Please Login or Register  to view this content.

**edit** - Richard is right though - the above is more efficient, and the code I provided could error out (such as if the range D1:D"XYZ" only had 1 entry, etc - I wrote it basically assuming you would have more than 2 entries in column D, began at cell D1, and had no spaces between data (e.g. empty rows in column D))