Update Range upon Load
 

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

Update Range upon Load
 

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

"HartSA" wrote in message
...
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