Dim c As Excel.Range With Range("A:A").SpecialCells(xlCellTypeConstants) For Each c In .Cells Call c.Replace(c.Value, c.Value & Chr(95) & Format$(Date, "DD.MM.YYYY")) Next c End With