Newdate = inputbox("Enter New Date: ", Date)
if isdate(newDate) then
With Worksheets("Sheet1")
.Range("C8").Value = cDate(newDate)
.Range("C8").NumberFormat = "dd/mm/yyyy"
End With
End if

--
Regards,
Tom Ogilvy

"Soniya" wrote in message
...
hi all,

how can i get a user input a date and get it in my Cell
C8 formated in dd/mm/yyy ?

something like:


Newdate = inputbox("Enter New Date: ", Date)

and this will be my date in C8?


TIA
Soniya