Bonsoir,
Pas de réponse jusqu'alors car la demande n'est pas très claire.
Si la textbox concernée est Textbox7 :
VB:
Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
s = Split(Replace(Me.TextBox7.Text, "'", ""), "!")
Sheets(s(0)).Activate
Range(s(1)).Activate
Unload Me
End Sub