Visual Basic para Aplicaciones - Copiar valor en celda desde inputbox

Muy buenas,

me gustaria saber la manera de transcribir el valor introducido en un inputbox a una celda de excel

He probado con esto, pero no me funciona:

Range("a4").Select

Dim celda As String

celda = InputBox("que fecha es hoy?")

ActiveCell.Value = celda.Value

End Sub

Gracias de antemano

Funciona así:

Private Sub Workbook_Open()
Dim miMensaje As String
miMensaje = InputBox("Escriba lo que quiera:")
ActiveCell.Value = miMensaje ' ( o Range("NN").Value )

End Sub

Suerte