Something like this ? ...........

'-----------------------------------------
Sub test()
Dim MyRange As Range
Dim Rw1 As Long
Dim Col1 As Integer
Dim Rw2 As Long
Dim Col2 As Integer
'--------------------------
Rw1 = 1 ' Row 1
Col1 = 1 ' Column 1
Rw2 = 50 ' Row 50
Col2 = 13 'Column M
Set MyRange = ActiveSheet.Range(Cells(Rw1, Col1), Cells(Rw2
Col2))
MyRange.Select

End Sub
'----------------------------------------

--
Message posted from http://www.ExcelForum.com