|
Sostituisci il codice della macro che hai creato con questo, dovrebbe essere quello che desideri
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Ciao
P.S. l'unico problema di questo codice è che ti perdere il contenuto degli appunti perchè lo sovrascrive con la data
|