Você pode obter uma lista das formas e o que chamam com facilidade -
Sub listem()
Dim s As Shape
For Each s In ActiveSheet.Shapes
Debug.Print s.Name & ", " & s.OnAction
Next
End Sub
Depois, você pode fazer uma lista de todas as suas funções e fazer uma correspondência, mas não acho que seja possível pedir que o código lhe diga seu aplicativo.caller, a menos que você o acione com o chamador.