IfThenElseIf in VBA problem

What I'm trying to accomplish is to have the following code search from cell Q4 down to the last cell that is not null. The previous part of the macro ran an autofill of a formula that inserted either OK or ERROR in the cell. What I would like this function to perform is to search the range and if any cell has the word ERROR in it, a message box appears to inform me there is an error that needs to be fixed and the macro ends. The ElseIf returns a message box that No errors were found and to click OK to continue with the macro.

I've been searching and trying to piece this together myself, but it is now time to seek out help for more experienced people.

Please Login or Register  to view this content.

Here is some additional code from the macro in case this will be useful.

Please Login or Register  to view this content.

Thanks OnErrorGoTo0. Your code I can understand better, but when I run the macro, I get the following error.

Microsoft Visual Basic
Run-time error '1004':
Method 'Range' of object '_Global' failed

What would cause this and how do I correct it?

Originally Posted by OnErrorGoto0

I confess I had assumed that LastRow was either a function or a module-level (or public) variable. It seems not so you are trying to apply row 0 to a range. You need to move the declaration of LastRow out of your other procedure and above all routines in the module.

I modified your code with something that was in the code snb shared and it works. Thank you for the help.

Please Login or Register  to view this content.