Try this...
Private Sub Worksheet_Change(ByVal Target As Range) ' changes count when date changes
Dim lRow As Variant, lCol As Variant
If Target.Count = 1 Then
If Target.Column = 4 Then
If Target.Value <> "" Then
Target.Offset(0, 1) = Target.Offset(0, 1) + 1
With Sheets("Tracking")
Select Case Target.Value
Case .Range("B3") To .Range("B4"): lCol = 2
Case .Range("C3") To .Range("C4"): lCol = 3
Case .Range("E3") To .Range("E4"): lCol = 5
Case .Range("F3") To .Range("F4"): lCol = 6
Case .Range("H3") To .Range("H4"): lCol = 8
Case .Range("I3") To .Range("I4"): lCol = 9
End Select
lRow = Target.Offset(, -1).Value - 2
If lCol <> 0 And lRow >= 5 And lRow <= 9 Then
.Cells(lRow, lCol).Value = .Cells(lRow, lCol).Value + 1
Else
MsgBox "Cannot match Date or Year Group on 'Tracking' sheet.", vbExclamation, "Tracking Count Not Increased"
End If
End With
End If
End If
End If
End Sub
Bookmarks