Private Sub Workbook_Open()
Dim Rng As Range
Application.ScreenUpdating = False
Set Rng = Sheets("Audit").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Rng.Value = Environ("username")
Rng.Offset(0, 1).Value = Now()
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rng As Range
Application.ScreenUpdating = False
Set Rng = Sheets("Audit").Range("B" & Rows.Count).End(xlUp)
Rng.Offset(0, 1).Value = Now()
Application.ScreenUpdating = True
Sheets("Audit").Range("D" & Rows.Count).End(xlUp).Offset(1, 0) = InputBox(Prompt:="Please detail any changes made")
Rng.Offset(0, 1).Value = Now()
End Sub