Snasui Excel Forum

Code: Select all

    ActiveCell.Offset(-3, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "ddd"
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "ddd"
    ActiveCell.Offset(1, 1).Range("A1").Select

Code: Select all

    Range("B6").Select
    ActiveCell.FormulaR1C1 = "ddd"
    Range("D6").Select
    ActiveCell.FormulaR1C1 = "ddd"