Thanks both of you for that. I think I've got it sorted.

--
Dave


"Kari J Keinonen" wrote:

That code works me. I have Office 2003 (USA Multilanguage Fi)

Private Sub CommandButton1_Click()
Dim MyName As String ' name type string
Dim MSHandoverDate As Date ' MSHdate type Date
Dim ActHandoverDate As Date ' ..
Dim DemoDate As Date ' ..
Dim TestDate As Date ' ..

Sheets("Milestone").Select
Range("C3").Select
Message = "Enter Customer Name..." ' Set prompt.
MyName = InputBox(Message, Default)
ActiveCell = MyName

Range("C4").Select
Message = "Please Enter MS Handover Date..." ' Set prompt.
MSHandoverDate = InputBox(Message, Default)
ActiveCell = MSHandoverDate

Range("C5").Select
Message = "Please Enter Actual Handover Date..." ' Set prompt.
ActHandoverDate = InputBox(Message, Default)
ActiveCell = ActHandoverDate

Range("C6").Select
Message = "Please Enter Demo Date..." ' Set prompt.
DemoDate = InputBox(Message, Default)
ActiveCell = DemoDate

Range("C7").Select
Message = "Please Enter Test & Adjust Date..." ' Set prompt.
TestDate = InputBox(Message, Default)
ActiveCell = TestDate

Range("C4:C7").Select
Selection.NumberFormat = "ddd dd/mm/yy"

End Sub