Kør macro når filen åbnes

Hej Eksperter,

Jeg prøver i øjeblikket at få denne formel til at kører når jeg åbner filen. Macroen skal kun kører på ark 1.

har flg. koder:


Ark1:

Private Sub Brugernavn()
Range("R2").Value = Username
End Sub



Modul:

Function Username()
Username = Environ("UserName")
End Function



Denne projektmappe:

Private Sub Auto_Open()

Run Brugernavn

End Sub


Er her nogle som kan gennemskue hvad jeg gør galt?

På forhånd tak