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

    Range("A1:D4").Select
    Range("B2").Activate

End Sub