So I opened my project and this section of the code stopped working for some reason. the data still shows up but the date no longer auto populates - anyone have suggestions?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
If Not Intersect(Range("B53:B130"), Target) Is Nothing Then
Application.EnableEvents = False
For Each cel In Intersect(Range("B53:B130"), Target)
If cel.Value = 0 Then
Target.Offset(0, 1).Value = ""
Else
Target.Offset(0, 1).Value = Date
End If
Next cel
Application.EnableEvents = True
End If
If Intersect(Range("H10"), Target) Is Nothing Then Exit Sub
If InStr(1, Range("H10"), "Term'd / Left") = 0 Then Exit Sub
MsgBox ("PLEASE EMAIL CPA, REVOKE AGENT BADGE ACCESS & ALL SYSTEM ACCESS. THIS TAB WILL NOW CLOSE.")
Application.EnableEvents = False
Range("H10") = "Term'd / Left"
Application.EnableEvents = True
If [H10] = "Term'd / Left" Then
ActiveWorkbook.ActiveSheet.Visible = False
Else
ActiveWorkbook.ActiveSheet.Visible = True
End If
End Sub
Bookmarks