Relative Macro Recording

Sub Relative()

‘

‘ Relative Macro

‘

ActiveCell.FormulaR1C1 = “Jan”

ActiveCell.Offset(0, 1).Range(“A1”).Select

ActiveCell.FormulaR1C1 = “Feb”

ActiveCell.Offset(0, 1).Range(“A1”).Select

ActiveCell.FormulaR1C1 = “Mar”

ActiveCell.Offset(0, -2).Range(“A1”).Select

End Sub