Date format is changing. Need guidance

[SivaR]

Need a help. Following is my code

lngRecdDate = Format(Date - 1, "DD-MMM-YYYY")
wbk.Sheets("Details").Cells(FoundRow, 17).Value = Format(lngRecdDate, "DD-MMM-YYYY")

It is working fine. However, some time the updated date is coming in DD-MMM-YY instead of DD-MMM-YYYY. Please guide me.

 

[Phuoc]

Try this:

lngRecdDate = Date - 1
With wbk.Sheets("Details").Cells(FoundRow, 17)
    .Value = lngRecdDate
    .NumberFormat = "DD-MMM-YYYY"
End With