Is Range ?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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)
 
Thank you Bob. I never considered letting the RANGE() function do the work
for me.
--
Gary's Student


Bob Phillips said:
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 said:
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
Click to expand...
Click to expand...
 
Just another option:

Function IsRange(s As String) As Boolean
On Error Resume Next
IsRange = Range(s).Address <> vbNullString
End Function
 
Thank you Dana
--
Gary''s Student


Dana DeLouis said:
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 said:
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
Click to expand...
Click to expand...
 
Back
Top