Hi,
I have these codes in Workbook
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim ws As Worksheet
Set ws = Worksheets("CHIT")
If Sh.Name = ws.Name Then
ws.Range("C12") = Application.UserName
End If
Set ws = Nothing
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As...