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