Office - Bucle infinito

TEngo un procedimiento, que me da un problema que se queda en un bucle infinito y no se como corregir ese error, puede alguien ayudarme a solucionarlo?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim valor
If columnaactual = 1 Then
valor = Hoja1.Cells(filaactual, 1)
If IsDate(valor) Then
Hoja1.Cells(filaactual, 3).Formula = "5"
Hoja1.Cells(filaactual, 2) = Weekday(valor, 2)
Else
MsgBox "Ingrese una fecha válida", vbInformation, "Horarios"
End If

Else
MsgBox "no es la columna indicada"
End If

End Sub

Si yo comento la linea: Hoja1.Cells(filaactual, 3).Formula = "5" o la siguiente a esta, funciona pero yo necesito que esten las dos lineas ayudenme por fa.

Amigo seria mejor que dijeras que deseas hacer con eso, tienes un problema para declarar tus variables o no se si es que no colocaste el codigo completo, amigo IsDate devuelve un valor tipo Boolean.
Ok tu dices "If IsDate(valor) Then " pues entonces a que es igual la funcion IsDate? en verdad mejor di que quieres hacer, me imagino algo pero cada quien sabe mejor lo que desea, aclara ok