Möglichkeiten einen eMail-Anhang zu bearbeiten

Function eXeX() As Object
Set eXeX = CreateObject("Excel.Application")
With eXeX
.Visible = True
.EnableEvents = False
End With
End Function
With eXeX
.Workbooks.Open Mail.Attachments.Item(i).FileName
.ActiveWorkbook.PrintOut Copies:=1, Collate:=True
' .Run "PERSONAL.xlsb!userfind"
End With
bekomme ich meine PERSONAL.xlsb!userfind nicht zum Laufen, da ein
neues "Programm" ohne "Persönliche Arbeitsmappe" erstellt und geöffnet wird.
Mit

ShellExecute 0, "Open", "C:\Temp\" & Mail.Attachments.Item(i). _
FileName, vbNullString, vbNullString, 0

bekomme ich den Anhang geöffnet kann jedoch auch hier nicht
ein Makro aus Excel   starten.
Kennt jemand eine bessere Lösung?
Danke im Vorraus.