How about for A1 to J1 would be:

Range(Cells(1,1),Cells(1,10)).Select
Or
A1 to A10 would be:
Range(Cells(1,1),Cells(10,1)).Select