Call Macro when click a range of cells

[kabootar]

Hi Guys,

I have the below code where I want a macro to run when a range of cells is selected(clicked).

The code is:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
If Not Intersect(Target, Sheet3.Range("Q1_COL")) Is Nothing Then

Sheet6.Range("D4").Value = Target.Value

ElseIf Not Intersect(Target, Sheet3.Range("Q2_COL")) Is Nothing Then

Sheet3.Range("N2").Value = Target.Value
If Sheet3.Range("N2").Value > 0 Then
Call MyMacro
End If

End If

End Sub


The second part is where I need the macro to run.
Just an FYI, there are two table on the sheet, hence the reason for two ranges.

 

[Yongle]

I have tested your procedure (below) and added MyMacro and "Hello" appears when the value selected in range Q2_COL is greater than 0 - so it works

But you are unhappy with it..
- so what happens that you do NOT want ? or what does NOT happen that you do want ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Sheet3.Range("Q1_COL")) Is Nothing Then
        Sheet6.Range("D4").Value = Target.Value
    ElseIf Not Intersect(Target, Sheet3.Range("Q2_COL")) Is Nothing Then
        Sheet3.Range("N2").Value = Target.Value
        If Sheet3.Range("N2").Value > 0 Then
            Call MyMacro
        End If
    End If
End Sub

Sub MyMacro()
    MsgBox "hello"
End Sub