Empêcher la fonction d'être appelée de façon répétitive

J'ai écrit une fonction personnalisée pour concaténer une plage, en utilisant un concaténateur personnalisé.

Public Function mikeConcat(rng As Range, concatenator As Variant) As String
     if left(selection.value,1)="'" then goto end1
     toReturn = "'"
     For Each cel In rng
         toReturn = toReturn & cel & CStr(concatenator)
     Next cel
    mikeConcat = Left(toReturn, Len(toReturn) - 1)
end1: End Function

Il fonctionne très bien, mais il semble que les cellules dans lesquelles je l'utilise l'appellent constamment. Sans désactiver la mise à jour de la formule de la feuille de calcul, comment puis-je faire en sorte qu'elle ne soit appelée qu'une seule fois par cellule ?

Edit1 : question pour refléter le changement recommandé par FreeMan. Edit2 : j'obtiens une erreur de référence circulaire, et cela ne fonctionne pas.