check if named range exists #excel #vba

check_named_range_exists.vbs

' Solution - check if named range exists 
'
' rather than checking if named range exists, 
' initialise a string, add all existing named ranges' names to it, 
' and then check if the required named range is in the string:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim sList As String
    
    '--INITIALISE STRING
    sList = ""
    
    '--ADD EACH NAMED RANGE TO THE STRING
    For Each Item In ActiveWorkbook.Names
        sList = sList + Item.Name
    Next Item
    
    '--CHECK IF THE STRING IS PRESENT IN THE LONG STRING OF NAMES
    If InStr(1, sList, "varNum") Then
        ' 
        ' DO STUFF HERE
        ' 
    End If

End Sub