Compile Error - Type Mismatch in VBA

I'm attempting to check a named range to see if the contents of the cells are blank.

I set the named range based on position of the active cell. The range I want to check is in the same column, 1 to 5 rows above the active cell. That part seems to be working. However I'm getting a type mismatch compile error and can't figure out why or how to fix it. Seems to be hanging up at the "If WorksheetFunction.CountBlank("QualRange") = 5 Then" line. Here's my code.

Please Login or Register  to view this content.

What am I doing wrong?

Originally Posted by mikerickson

WorksheetFunction.CountBlank() needs a Range as its argument. That code is giving it a String. Try

Please Login or Register  to view this content.

That did the trick. Thanks very much!