Hi Jeff,

Try something like this

Dim rng As Range

On Error Resume Next
Set rng = Application.Selection
On Error GoTo 0
If rng Is Nothing Then
MsgBox "Not a r5ange"
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jeff Higgins" wrote in message
...
How can I determine if the Application.Selection is a Range type object?
Is there a way test way to test like this:

If Application.Selection Is Range Then
'Then do some thing with the range.
End If