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
--
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)

"Gary''s Student" wrote in message
...
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
--
Gary''s Student

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


"Bob Phillips" wrote:

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" wrote in message
...
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
--
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


"Gary''s Student" wrote in message
...
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
--
Gary''s Student

Thank you Dana
--
Gary''s Student


"Dana DeLouis" wrote:

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


"Gary''s Student" wrote in message
...
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
--
Gary''s Student