Intersect

I run into a code "91" error when I perform this function


sub mymacro()

If application.intersect(Activecell, Range("A1:IV16")) then
msgbox("wrong area")
else
msgbox("better")
end if

end sub

I don't have anything declared, can anyone help?

Instead of ActiveCell do:
Cells(ActiveCell.Row, ActiveCell.Column)

RBS

<[email protected]> wrote in message
news:[email protected]...
>I run into a code "91" error when I perform this function
>
>
> sub mymacro()
>
> If application.intersect(Activecell, Range("A1:IV16")) then
> msgbox("wrong area")
> else
> msgbox("better")
> end if
>
> end sub
>
> I don't have anything declared, can anyone help?
>

Forgot to say that you also have to deal with the resulting range like this:

If Not Application.Intersect(Cells(ActiveCell.Row, _
ActiveCell.Column), Range("A1:A10")) Is Nothing Then

RBS

"RB Smissaert" <[email protected]> wrote in message
news:[email protected]...
> Instead of ActiveCell do:
> Cells(ActiveCell.Row, ActiveCell.Column)
>
> RBS
>
> <[email protected]> wrote in message
> news:[email protected]...
>>I run into a code "91" error when I perform this function
>>
>>
>> sub mymacro()
>>
>> If application.intersect(Activecell, Range("A1:IV16")) then
>> msgbox("wrong area")
>> else
>> msgbox("better")
>> end if
>>
>> end sub
>>
>> I don't have anything declared, can anyone help?
>>
>