Excel VisualBasic Script

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