Named range check

[dispelthemyth]

I am currently using the below code to check if a named range exists before then doing some more checks on it to see if its valid
The named ranges are on multiple sheets, but the below code appears to only work for single cell named ranges and returns a black if its more than 1 cell.

Is there something simple i am missing?

    On Error Resume Next
        Set rCellCheck = Nothing
        Set rCellCheck = Evaluate(Names(csModelName).RefersTo)
        Debug.Print rCellCheck
        On Error GoTo 0

 

[dispelthemyth]

Appears to have been solved by a colleague of mine

changed

Set rCellCheck = Evaluate(Names(csModelName).RefersTo)

To

Set rCellCheck2 = Names(csModelName).RefersToRange.Cells(1, 1)