Attribute VB_Name = "testcellselect5"
Sub ƒeƒXƒg()

    Range("A1").Activate
    setValue

    Range("D2").Activate
    setValue

End Sub

Sub setValue()

    ActiveCell.Value = "A"

End Sub