Excel konvertiert den von Ihnen mit dem Makro eingegebenen Text automatisch in ein Datum (und wendet dann ein Datumsformat an. Um Excel dazu zu zwingen, es als Text anzuzeigen, stellen Sie der Datumszeichenfolge ein einfaches Anführungszeichen voran:
ActiveCell.Value = "'" + Format(Now(), "dd-mmm-yy")
Setzen Sie alternativ das Format der Zelle zuerst auf den Texttyp:
ActiveCell.NumberFormat = "@" ActiveCell.Value = Format(Now(), "dd-mmm-yy")