I'm not sure why the format is needed, as it was simply returned back to the Date before you fill out the cell.
You really must have:
.Cells(1, 1) = Format(Now,"dd.mm.yy hh:mm")
or even better
.Cells(1, 1) = Now
then format the column as follows:
Columns("A:A").NumberFormat = "dd.mm.yy hh:mm"
Note. It is possible that the presence of mm in the format string did not help, although, having tried it, it seems to work fine.
source share