'add year and change number format Range("J2").Select Selection.NumberFormat = "General" ActiveCell.FormulaR1C1 = "2011"