Hi Kush

you could try adding this:

Dim myDate As String
myDate = Format(Date, "dd-mmm-yyyy")

so replace this:
..axes(xlCategory, xlprimary).axisTITLE.CHARACTERS.TEXT = "Date"

with
..axes(xlCategory, xlprimary).axisTITLE.CHARACTERS.TEXT = myDate

HTH

Mick