Ricerca cella su altro foglio dopo selezione su doubleclick

Buongiorno a tutti,
sono nuovo del forum e neofita per quanto rigurda non tanto l'utilizzo di excel ma dello svilluppo in VBA.
Vi ringrazio anticipatamente per tutti i suggerimenti che fornite sul forum e che trovo estremamente utili
sia come suggeriemnti che come effettive soluzioni.
Vorrei sottoporVi un problema che non riesco a risolvere, ovviamente per mia carenza,
Nel file allegato "Foglio1" ho creato delle celle riassuntive di argomenti che con attivazione su double click
vorrei rimandare al "Foglio2" che contiene info più di dettaglio dei diversi argomenti.
Ho provato diverse soluzioni (dopo aver configurato il double click) dal cell.find al goto ActiveWorkbook.Sheets etc. e sicuramente non riesco
a far prendere la variabile per la ricerca.
Le celle di partenza contengono info testo.
Un vostro aiuto sarebbe veramente gradito.
Grazie in anticipo.
Un saluto
Gigadipa

Grazie Raffaele, della risposta tempestiva.
Provo subito e ti faccio sapere.
Grazie
Un saluto
Stefano

Buongiorno Raffaele,
grazie per il supporto funziona perfettamente e mi ha molto aiutato anche a capire l'impostazione variabili.
Ho inoltre inserito un campo (colonna 4) in più nella visualizzazione msgBox finale così ho prewiew completa di descrizione sintetica e poi anche il rimando diretto al foglio2 (da cella selezionata) così ho tutte le info aggiuntive necessarie.
Allego la modifica fatta per condivisione:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rr As Long, Rg As Object, Msg As String
Msg = Target.Offset(0, 0)
If Not Intersect(Target, Range("A2:A4, C2:C4, E2:E4")) Is Nothing Then
If Msg = "" Then Exit Sub
Set Rg = Sheets("Foglio2").Range("A1:A1000").Find(Msg, LookIn:=xlValues, LookAt:=xlWhole)
If Rg Is Nothing Then
MsgBox "nessuna corrispondenza"
Else
r = Rg.Row
MsgBox Sheets("Foglio2").Cells(r, 1) & " " & Sheets("Foglio2").Cells(r, 2) & " " & Sheets("Foglio2").Cells(r, 3) & " " & Sheets("Foglio2").Cells(r, 4)
Application.Goto ActiveWorkbook.Sheets("Foglio2").Cells(r, 1)

End If
End If
Set Rg = Nothing
End Sub


Grazie mille
Un saluto
Stefano