Sub ���̐���()  
    intMon = Range("C3")
    If intMon = 10 Then
       Range("C4").Value = 11
       Range("C5").Value = 12
       Range("C6").Value = 1
       GoTo Jump
    End If
    If intMon = 11 Then
       Range("C4").Value = 12
       Range("C5").Value = 1
       Range("C6").Value = 2
       GoTo Jump
    End If     
    If intMon = 12 Then
       Range("C4").Value = 1
       Range("C5").Value = 2
       Range("C6").Value = 3
    Else
       Range("C4").Value = Range("C3") + 1
       Range("C5").Value = Range("C3") + 2
       Range("C6").Value = Range("C3") + 3
    End If
Jump:
    Range("A1").Select
End Sub