Username in Zelle ausgeben

Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Sub ShowUserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
MsgBox Left(Buffer, BuffLen - 1)
End Sub

Funktioniert auch wunderbar. Was mir fehlt ist, dass das Makro bei Dateistart automatisch läuft und der UserName z.B in Zelle A1 geschrieben wird und nicht in einer Message Box.

Danke für Hilfe!