Hi Guys,

I know there is a way of automatically runnig a piece of code when
user selects a certain cell (eg if they select cell A1 code A runs
whereas if they selecet cell B1 code B may run).

However what i woudl like to do, and what i am struggling to do is.
Run the code if the cell selected is within a certain range. Fo
example, if the range is a1:d5 and user selects cell b3 it runs som
code, where as if the user selects E2 it will not as this is not in th
code.

Is there a simple way of doing this? Its driving me crazy.

Regards,

Fernand

--
Fernandoalbert
-----------------------------------------------------------------------
Fernandoalberte's Profile: http://www.excelforum.com/member.php...fo&userid=2449
View this thread: http://www.excelforum.com/showthread.php?threadid=38344

How about naming the range a1:d5 as "HotRange", and then testing whether the clicked cell is within
HotRange before continuing with the code execution.
Rgds,
Scott

"Fernandoalberte" <Fernandoalberte.1rfgqb_1120115111.6807@excelfor um-nospam.com wrote in message
news:Fernandoalberte.1rfgqb_1120115111.6807@excelf orum-nospam.com...
|
| Hi Guys,
|
| I know there is a way of automatically runnig a piece of code when a
| user selects a certain cell (eg if they select cell A1 code A runs,
| whereas if they selecet cell B1 code B may run).
|
| However what i woudl like to do, and what i am struggling to do is.
| Run the code if the cell selected is within a certain range. For
| example, if the range is a1:d5 and user selects cell b3 it runs some
| code, where as if the user selects E2 it will not as this is not in the
| code.
|
| Is there a simple way of doing this? Its driving me crazy.
|
| Regards,
|
| Fernando
|
|
| --
| Fernandoalberte
| ------------------------------------------------------------------------
| Fernandoalberte's Profile: http://www.excelforum.com/member.php...o&userid=24493
| View this thread: http://www.excelforum.com/showthread...hreadid=383440
|

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng1, rng2 As Range
Set rng1 = Me.Range("a1") 'first tested area
Set rng2 = Me.Range("b1") 'second tested area
If Not Application.Intersect(rng1, Target) Is Nothing Then MsgBox "A1
selected"
If Not Application.Intersect(rng2, Target) Is Nothing Then MsgBox "B1
selected"
End Sub

In your Worksheet code module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("A1:D5"), Target) Is Nothing Then
Call MyMacro
End Sub

Mike F

"Fernandoalberte"
<Fernandoalberte.1rfgqb_1120115111.6807@excelfor um-nospam.com wrote in
message news:Fernandoalberte.1rfgqb_1120115111.6807@excelf orum-nospam.com...

Hi Guys,

I know there is a way of automatically runnig a piece of code when a
user selects a certain cell (eg if they select cell A1 code A runs,
whereas if they selecet cell B1 code B may run).

However what i woudl like to do, and what i am struggling to do is.
Run the code if the cell selected is within a certain range. For
example, if the range is a1:d5 and user selects cell b3 it runs some
code, where as if the user selects E2 it will not as this is not in the
code.

Is there a simple way of doing this? Its driving me crazy.

Regards,

Fernando


--
Fernandoalberte
------------------------------------------------------------------------
Fernandoalberte's Profile:
http://www.excelforum.com/member.php...o&userid=24493
View this thread: http://www.excelforum.com/showthread...hreadid=383440