Refresh VBA when spreadsheets opens

[Dare]

Hi, If anyone could help

I want the user ID to appear in a cell

Public Function user() As String
user = Environ("username")
End Sub


All works fine, but when I send it to another user they have to click on the cell for it to update.... (hope that makes sence)

could anyone help me making it update when the spreadsheet is opened ?

Many thanks

 

[hippiehacker]

the following code has to go into thisworkbook code

Private Sub Workbook_Open()
Sheets("Sheet1").Range("A1") = user 'change Sheet and Range as required
End Sub
 
Public Function user() As String
user = Environ("username")
End Function

 

[Jon von der Heyden]

Public Function user() As String
    [B][COLOR="Red"]Application.Volatile[/COLOR][/B]
    user = Environ$("username")
End Sub

 

[Dare]

Many thanks, works great !


Public Function user() As String
Application.Volatile
user = Environ$("username")
End Sub