i got it fixed with following code....

Cells(85, 14).Value = Date
Cells(85, 13).Value = Format(Cells(85, 14).Value, "d")
Cells(85, 15).Value = Format(Cells(85, 14).Value, "ddd")

Once again many thanks to all ....

Riz Momin