Range Name Found??

[Michael Kintner]

If I wanted to check to see if a range name exists would I do?

 

[Charles Maxson]

Micheal,

Here is a function (with a test sub) that will return t/or/f if your name
exists:

Sub Test()
MsgBox RangeNameExists("test")
End Sub

Function RangeNameExists(sRangeName As String) As Boolean
Dim rng As Range
On Error Resume Next

Set rng = Range(sRangeName)

If Not rng Is Nothing Then
RangeNameExists = True
End If

End Function

 

[Jake Marx]

Hi Michael,

Here's another alternative (shorter, but accomplishes the same thing as
Charles's):

Public Function gbValidRange(rsName As String) As Boolean
On Error Resume Next
gbValidRange = Len(Range(rsName).Name)
End Function

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]