This should give you a few ideas:

Sub SelRange()
Dim MyRng As Range
Set r = Application.InputBox(prompt:="select range with mouse", Type:=8)
r.Select
If TypeOf Selection Is Range Then
Set MyRng = Selection
End If
End Sub

HTH,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Bigfoot17" wrote:

I started out selecting a range like this:
Range("B13:G13").Select

Then I realized that I wanted to use a variable for the row instead of 13
and changed it to this:
Range("B" & strRow & ":G" & strRow).Select

Now I want to be able to use a variable for the column. I'd like to select
"B" through the 5th column over ("G") or if my starting column is "I" then
select through the 5th column over ("N"). Below is wrong, but what would be
correct?
Range(strCol & strRow & ":" & (strCol + 5) & strRow).Select

Thanks!