Apologies I missed you were using the selectionchange event so change

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

to

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

"Mike H" wrote:

Keri,

Using the worksheet_Change event you can call as many macro's as you have
patience to extend the If statement:-

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A49")) Is Nothing Then
MsgBox ("No1 Macro") '<Your nacro call goes here.
ElseIf Not Intersect(Target, Range("A50")) Is Nothing Then
MsgBox ("No2 Macro")
ElseIf Not Intersect(Target, Range("A51")) Is Nothing Then
MsgBox ("No3 Macro")
End If
End Sub

Mike

"keri" wrote:

Hi,

I want to be able to navigate around my sheet by running macro's when
certain cells are selected. I have the following code;


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A49")) Is Nothing Then
showcalendar
End Sub

which works fine, however I have tried numerous ways to have this code
operate based on different cells.
Eg. I also want to run a macro when cell AF95 is selected and a
different macro when cell A53 is selected.

I cannot find a way to use this code more than once. Any help is
appreciated.

Thanks,