Excel VisualBasic Script

Sub MyMacro 
         ActiveCell.Range("A1:C1").Select
     End Sub