kontrol af måned og år ved årsskifte

Jeg laver med nedenstående VBA kode en oversigt over elever, der starter i næste måned. Den giver mig lidt problemer her ved årsskiftet. Det regneark den henter oplysningerne fra indeholder startdatoer både tilbage og frem i tiden. Men jeg skal have fat i dem der starter i næste måned - altså januar 2015. Ikke januar 2016. Hvordan kan jeg fikse det?

i = 5
    For Each c In Worksheets("Placering").Range("d6:d" & antrk1).Cells
          If Month(c.Value) = Month(Date) + 1 Then
          If Year(c.Value) = Year(Date) Then
        i = i + 1
            Worksheets("StartNæsteMåned").Range("a" & i).Value = c.Offset(0, -3).Value
            Worksheets("StartNæsteMåned").Range("b" & i).Value = c.Offset(0, 2).Value
            Worksheets("StartNæsteMåned").Range("c" & i).Value = c.Offset(0, 10).Value
            Worksheets("StartNæsteMåned").Range("d" & i).Value = c.Offset(0, 0).Value
           
        End If
        End If
    Next