VBA - Check is activecell is within a range

Andrew Poulsom

MrExcel MVP

Joined

Jul 21, 2002

Messages

73,092

• Oct 1, 2008

• #2

Try:

If Not Application.Intersect(ActiveCell, Range("A6:A1000")) Is Nothing Then

 

Upvote 0

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• Oct 1, 2008

• #3

Try

Code:

If Not Intersect(ActiveCell, Range("A6:A1000")) Is Nothing Then
    'code
End If

 

Upvote 0

RoryA

MrExcel MVP, Moderator

Joined

May 2, 2008

Messages

43,138

Office Version

1. 365

Platform

1. Windows
2. MacOS

• Oct 1, 2008

• #4

As a matter of interest, why do you need to do this?

 

Upvote 0

K

kgkev

Well-known Member

Joined

Jun 24, 2008

Messages

1,291

Office Version

1. 365

Platform

1. Windows

• Oct 1, 2008

• #5

Thanks guys.

 

Upvote 0

S

SMB Cooper

Board Regular

Joined

Sep 10, 2008

Messages

66

• Oct 1, 2008

• #6

I am a newbie, therefore my code will be like this... conservative but working. (For learning purposes only, please follow the code of the Excel MVPs).

Sub ActiveRC()

If ActiveCell.Column() <> 1 Or ActiveCell.Row() < 6 Or ActiveCell.Row() > 1000 Then
MsgBox "WRONG CELL SELECTED.", vbOKOnly + vbInformation, "Hello!!!"
Else
MsgBox "YOU ARE INSIDE THE RANGE.", vbOKOnly + vbInformation, "Yahoo!!!"
End If

End Sub

 

Upvote 0