Actualizar fecha

[Liliana]

Buen día, ecesito actualizar una fecha en una casilla, con un condicional. Primero hago el mensaje si desea actualizar la fecha, si no, sale y si desea actualizar, la debe actualizar en X casilla. Tengo eto, pero no sé en donde está la falla

Sub SalirAplic()
If MsgBox("¿Quiere actualizar la fecha?", vbQuestion + vbYesNo, "Ultima pregunta") = vbNo Then
Application.Quit
[Else Range("i4").select cell.formulaR1C1 = "=DATEVALUE" RANGE("I4").SELECT]
End If
End Sub

 

[VoG]

Intente esto

Sub SalirAplic()
If MsgBox("¿Quiere actualizar la fecha?", vbQuestion + vbYesNo, "Ultima pregunta") = vbYes Then
    Range("I4").Value = DateValue(Range("I4").Value)
End If
End Sub