can certainly still be optimized.
Private Sub isCurrentMonth(ticks As Long) As Boolean
Return DateTime.GetYear(ticks) = DateTime.GetYear(DateTime.Now) And DateTime.GetMonth(ticks) = DateTime.GetMonth(DateTime.Now)
End Sub
Private Sub isSameYear(ticks_1 As Long,ticks_2 As Long) As...