Tim; did you mean:

If Typename(Selection) = "Range" Then

?

Regards,

Vasant.


"Tim Zych" wrote in message
...
If Typename(ActiveCell) = "Range" Then
ActiveCell.Select
End If

"Chris Gorham" wrote in message
...
Hi,

I want to make sure that when I write code such as
activecell.select that the macro doesn't bug out because
an object such as a chart happens to be currently selected
on the s/sheet and not a cell range.

thks...Chris