Are you dealing with fiscal years?
Function GetFiscalYear(Dt As Variant, Optional StartMonth As Integer = 7) As Variant
If Not IsDate(Dt) Then Exit Function
If Month(Dt) >= StartMonth Then
GetFiscalYear = (Year(Dt) + 1)
Else
GetFiscalYear = Year(Dt)
End If...