Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Sheets("Sheet1").Range("A1").Value = Application.UserName
Sheets("Sheet1").Range("A1").Value = Environ("username")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Range("B1").Value = Application.UserName
Sheets("Sheet1").Range("A1").Value = Environ("username")
Sheets("Sheet2").Range("B1").Value = Application.UserName
Sheets("Sheet2").Range("A1").Value = Environ("username")
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("B1").Value = Application.UserName
Sheets("Sheet1").Range("A1").Value = Environ("username")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Consolidated Summary").Range("G4").Value = Environ("username") & " " & Application.UserName
End Sub