Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C3").Address And _
Not IsEmpty(Target(1)) And IsDate(Target) Then
Dim x As Variant
x = Application.Match(CLng(Target), Range("D3").Resize(, 365), 0)
If Not IsError(x) Then Application.Goto Target.Offset(, x), True
End If
End Sub