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

    Dim range1 As Range
    
    Set range1 = Range("A1:B3")
    range1.Select

End Sub