Is Range ?

[Gary''s Student]

I need a simple Boolean function that, given a string as an input, will
return TRUE if the string can be converted directly into a range, otherwise
FALSE. For example:

A1
Sheet3!F20
[Book1.xls]Sheet1!$B$2

should all return TRUE, but:

A1+A2
A1+1

should all return FALSE

Thanks in advance

 

[Bob Phillips]

Function IsRange(rng As String)
Dim rngTemp As Range

On Error Resume Next
Set rngTemp = Range(rng)
On Error GoTo 0

IsRange = Not rngTemp Is Nothing

End Function


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Gary''s Student]

Thank you Bob. I never considered letting the RANGE() function do the work
for me.
--
Gary's Student

Function IsRange(rng As String)
Dim rngTemp As Range

On Error Resume Next
Set rngTemp = Range(rng)
On Error GoTo 0

IsRange = Not rngTemp Is Nothing

End Function


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

I need a simple Boolean function that, given a string as an input, will
return TRUE if the string can be converted directly into a range, otherwise
FALSE. For example:

A1
Sheet3!F20
[Book1.xls]Sheet1!$B$2

should all return TRUE, but:

A1+A2
A1+1

should all return FALSE

Thanks in advance

 

[Dana DeLouis]

Just another option:

Function IsRange(s As String) As Boolean
On Error Resume Next
IsRange = Range(s).Address <> vbNullString
End Function

 

[Gary''s Student]

Thank you Dana
--
Gary''s Student

Just another option:

Function IsRange(s As String) As Boolean
On Error Resume Next
IsRange = Range(s).Address <> vbNullString
End Function

--
HTH. :>)
Dana DeLouis
Windows XP, Office 2003

I need a simple Boolean function that, given a string as an input, will
return TRUE if the string can be converted directly into a range,
otherwise
FALSE. For example:

A1
Sheet3!F20
[Book1.xls]Sheet1!$B$2

should all return TRUE, but:

A1+A2
A1+1

should all return FALSE

Thanks in advance