récupérer certains caracteres dans une chaine de caracteres

bonjour à tous
j'ai un probleme je souhaite récupérer dans une variable un morceau de chaine de caracteres :

ex : je fais une copie avec liaison et j'obtient :
=identite_menage!$D$2

je souhaite récupérer tous les caracteres jusqu'à ! et enlever le =
merci de m'aider merci beaucoup

Un exemple sur le contenu de la cellule active

Sub drb()
Set my = ActiveCell
a = Mid(Left(my, InStr(1, my, "!") - 1), 2, Len(my) - 1)
MsgBox a
End Sub

Merci beaucoup !
C'est tres efficace ici :-)
bonne journée