El código sólo funciona si le ejecuto paso a paso

Tengo creado un Form, que al abrirlo activo una hoja de un libro excel. En este Form he insertado un botón con el siguiente código:
 Private Sub GuardarPtes_Click()
Dim Mensaje, Título, ValorPred, FechaVigor
Mensaje = "Introduzca la fecha de entrada en vigor de las nuevas TARIFAS"
Título = "Fecha"
ValorPred = Format(Date, "dd-mm-yy")
Do
FechaVigor = InputBox(Mensaje, Título, ValorPred)
Loop Until FechaVigor <> ""
Cells(5, 3) = FechaVigor
Cells(7, 3) = Application.WorksheetFunction.Round(FuturaJankideak, 2)
Cells(8, 3) = Application.WorksheetFunction.Round(FuturaHelduak, 2)
Unload Me
End Sub
He introducido un InputBox para solicitar una fecha. Si ejecuto el código funciona hasta el inputBox, pide la fecha y cuando pulsas en aceptar no introduce los valores en las celdas correspondientes de la hoja excel. Sin embargo, si lo ejecuto paso a paso o con un punto de interrupción, funciona correctamente. ¿A qué se debe, cómo solucionarlo?
Gracias