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

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

End Sub