A Cell doesn't show the date formatting as set in VBA

[Ramadan2512]

I have a work sheet with a combined long VBA code and one of these vba rules is to insert today() date in cell "D11" in case if any changes in cells E5 or G5 .... the code was working perfectly but suddenly maybe i did something wrong made the date formating in D11 dont appear as I need .... I have tried everything like text to column and cell formatting and even changing dae setting in my windows but still the date format in cell D11 only give me one single format like this (02.10.2024) while to format in vba is

[For r = LBound(a) To UBound(a)
        If Target.Address(0, 0) = a(r, 2) Then 'consider using If Not Intersect(Target, Range("E5,G5") or Range("E5:G5")) Is Nothing Then...with other changes in the code if you want to change multiple conditions in one swoop
            ws.Range("D11").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save time"), "short date")
            ws.Range("D11").NumberFormat = "[$-,200]yyyy/m/d;@"]


do anyone please has a suggesstion what can i do to fix that issue [CODE=vba]

 

[Alex Blakenburg]

By using the Format function you are entering the date as Text.
Try:

            ws.Range("D11").NumberFormat = "[$-,200]yyyy/m/d;@"
            ws.Range("D11").Value = ThisWorkbook.BuiltinDocumentProperties("Last Save time")

 

[Ramadan2512]

By using the Format function you are entering the date as Text.
Try:

            ws.Range("D11").NumberFormat = "[$-,200]yyyy/m/d;@"
            ws.Range("D11").Value = ThisWorkbook.BuiltinDocumentProperties("Last Save time")

perfect, it works thank you soooooooo much Alex

 

[Alex Blakenburg]

You're welcome. Thanks for letting me know.