Excel VisualBasic Script

Sub selectRange()
    Range("A1:A3").Activate
End Sub