Makro -abfrage / ob existiert

ich suche eine möglichkeit, nach dem vorhandensein eines makros
in einem makro abzufragen.
eine abfrage nach dateien ist möglich
kann man auch nach makros, modulen und userforms fragen ?

Das folgende Makro funktioniert leider nicht !
Hat jemand eine andere Idee ?

Sub MakroAbfrage()
On Error Resume Next
TestMakro
Exit Sub
MakroFehlt:
MsgBox "Das Makro fehlt"
End Sub

Sub sTestMakro()
MsgBox "Hallo das Testmakro ist vorhanden"
End Sub