Sub DoesThisRangeExist()
Dim Rng As String
Rng = InputBox("What range do you want to search for?", "Search Criteria")
For i = 1 To ActiveWorkbook.Names.Count
On Error GoTo Nope
If ActiveWorkbook.Names(i).Name = Rng Then
MsgBox ("The range named '" & Rng & "' was found in this workbook."), , "Search Sucessful"
Exit Sub
End If
Next i
Nope:
MsgBox ("The range named '" & Rng & "' can not be found in this workbook."), , "Search Failed"
End Sub
Sub FindThisRange()
Dim Rng As String
Rng = InputBox("What range do you want to search for?", "Search Criteria")
On Error GoTo Nope
Application.GoTo Rng
Exit Sub
Nope:
MsgBox ("The range named '" & Rng & "' can not be found in this workbook."), , "Search Failed"
End Sub