Hi Ken
Thanks works like a dream.
Noel

"Ken Johnson" wrote:

Hi NoelH,
try this...

Public Sub CorrectDate()
Dim strDate As String
strDate = Application.InputBox("What Date?", 2)
Cells(1, 1) = CDate(strDate)
End Sub

ie, the CDate conversion seems to do the trick.

Fellow Aussie Ken Johnson