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