Visual Basic functions to use with Named References (under Formulas > Name Manager)

Mdl_HelperSubs.bas

' Some custom Visual Basic functions that I like to use

' User MikeD on https://stackoverflow.com/a/37611071/12621376
' Check whether a given string is a valid name in Activeworkbook.names
Function isNamedRange(ByVal rangeName As String)
    Dim n As Name
    isNamedRange = False
    For Each n In ActiveWorkbook.Names
        If n.Name = rangeName Then
            isNamedRange = True
            Exit For
        End If
    Next
End Function

' Get the location of a given named range (under Formula > Name Manager) or display an error
' Example: airSpeed = Range(GetRefersTo("airSpeed")).Value
Function GetRefersTo(ByVal namedRef As String) As String
    If isNamedRange(namedRef) Then
        GetRefersTo = ActiveWorkbook.Names(namedRef).RefersTo
    Else
        MsgBox "This named reference does not exist in this worksheet: " & vbNewLine & namedRef
        Debug.Print "This named reference does not exist in this worksheet:" & vbNewLine & namedRef
    End If
End Function