Run A Macro By Clicking A Specific Cell In Excel

I found the macro below which works perfectly if you just want to click in one cell.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("P31")) Is Nothing Then
            Call Macro1
        End If
    End If
End Sub

The problem is I want to run different macros if I click different cells. I thought I could combine all of them in one as per below, but it didn't work.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("P31")) Is Nothing Then
            Call Macro1
        If Not Intersect(Target, Range("Q10")) Is Nothing Then
            Call Macro2
        If Not Intersect(Target, Range("U25")) Is Nothing Then
            Call Macro3
        End If
    End If
End Sub

Any ideas?

Thanks,

.
Select case ??

.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Selection.Count = 1 Then
        If Not Intersect(Target, Range("P31")) Is Nothing Then
            Call Macro1
        ElseIf Not Intersect(Target, Range("Q10")) Is Nothing Then
            Call Macro2
        ElseIf Not Intersect(Target, Range("U25")) Is Nothing Then
            Call Macro3
        End If
    End If
End Sub

It works well, but how can I add a error message if there is an error?

I was think something like the below in red but it didn't work.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Selection.Count = 1 Then
        If Not Intersect(Target, Range("P31")) Is Nothing Then
            Call GotoLeadTime
        ElseIf Not Intersect(Target, Range("Q10")) Is Nothing Then
            Call GotoStock
        ElseIf Not Intersect(Target, Range("U25")) Is Nothing Then
            Call GotoCustomers
        Else
        MsgBox "No match"
        End If
    End If
End Sub

.
Your macro works here, if you are double-clicking in any cell other than those listed in the macro.

Do you intend for it to do something different ?

The macro works well, the problem is different: the tab I run this macro has an item, and when I click on these three different cells, they run macros they will take me to this item in different tabs, such as sales or stock tabs. Sometimes this item does not exist in one of these tabs, so I have a macro error.

Perhaps what I need to do is to fix the macros that are being called. One of them is the one below:

Sub GotoStock()
    ItemRow = Sheets("Stock").Range("A:A").Find(what:=Sheets(" P S I ").Range("C7")).Row
    Application.GoTo Sheets("Stock").Cells(ItemRow, 1)
End Sub

How can I add a message box, saying something like "not found" if the macro doesn't find what it is looking for?

.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 On Error GoTo Err:
 
 If Selection.Count = 1 Then
        If Not Intersect(Target, Range("P31")) Is Nothing Then
            Call GotoLeadTime
            
        ElseIf Not Intersect(Target, Range("Q10")) Is Nothing Then
            Call GotoStock
            
        ElseIf Not Intersect(Target, Range("U25")) Is Nothing Then
            Call GotoCustomers
        Else
        MsgBox "Nothing found !"
        End If
End If

Exit Sub

Err: MsgBox "An error occured and may include Nothing Found"

End Sub

The error message box works fine, but I had an idea. Is it possible to add a command in the beginning of the macro below, to clear the filter (not to remove, just to clear) in the "Stock" sheet?

90% of the times the error message pops up is because the Stock sheet has the filter on, so if we clear the filter that should fix most of problems.

Sub GotoStock()
    ItemRow = Sheets("Stock").Range("A:A").Find(what:=Sheets(" P S I ").Range("C7")).Row
    Application.GoTo Sheets("Stock").Cells(ItemRow, 1)
End Sub