Countif Range selection problem

[airportzoo]

Hello

This bit of code sits in the middle of a big bit of code, but I'm getting the error
"Compile error:
Type mismatch"
on the

"O2:O200"

bit.

If Application.WorksheetFunction.CountIf("O2:O200", "#REF!") >= 1 Then
    MsgBox("There is a problem with the database. The repair macro will run to fix this. Then send the text again.", vbOKOnly, "Error") = vbOK
    Run macro2
    Exit Sub
    Else

The idea is that before the main code in the macro executes, this bit of code will make sure there are no #REF! errors in column O, and if there are a msgbox will come up and indicate a problem and then execute another macro to repair the #REFs.

If anyone can provide some direction, that would be great!

Thanks!

 

[VoG]

I'm not sure that this will work as intended but you need Range

If Application.WorksheetFunction.CountIf(Range("O2:O200"), "#REF!") >= 1 Then

 

[airportzoo]

Thanks Peter. That problem is solved but I'm getting another compile error:
"Function call on left-hand side assignment must return Variant or Object."

I've seen plenty of error messages but that one is new to me and the help files don't help....

 

[VoG]

Maybe you need something like this

If Application.WorksheetFunction.CountIf(Range("O2:O200"), "#REF!") >= 1 Then
    If MsgBox("There is a problem with the database. The repair macro will run to fix this. Then send the text again.", vbYesNo, "Error") = vbYes Then
        Run macro2
        Exit Sub
    Else
'?
   End If
Else
'more code
End If

 

[airportzoo]

It works perfectly, just as I needed it to. Thanks for your help Peter!