Update Range upon Load

[HartSA]

I am trying to update a range each time a worksheet is open.

Here is what I have so far.

Private Sub Worksheet_Activate()

Application.EnableEvents = True
Range("Profile!B5").Value = Application.UserName

End Sub

Does quite do the job.

Thanks

 

[HartSA]

Found it on my own, need WorkBook Open, not worksheet_activiate.