Check current location

[Guest]

Hi,

I'm trying to create a macro that will only run when the active cell is in
certain locations. If the active cell is not in the correct location I want
to display an error message.

Any ideas gratefully received.

 

[NickHK]

Jeff,
Depends how you determine the correct location:

Const MAXROW As Long = 10
If ActiveCell.Row > MAXROW Then
MsgBox "Must be on/before row " & MAXROW
End If

Const MAXCOL As Long = 10
If ActiveCell.Column > MAXCOL Then
MsgBox "Must be on/before column " & MAXCOL
End If

Const OK_RANGE As String = "D3:M26"
If Intersect(ActiveCell, Range(OK_RANGE)) Is Nothing Then
MsgBox "Must be in the range " & OK_RANGE
End If

NickHK

 

[Bob Phillips]

If Intersect(Activecell, Range("H1:M10")) Is Nothing Then
MsgBox "Not in correct location"
End If

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Perfect,

Thanks very much

If Intersect(Activecell, Range("H1:M10")) Is Nothing Then
MsgBox "Not in correct location"
End If

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)