Convert String to Range

[WillyTheFish]

Hello ppl,

any idea how i convert a string to a range? I won't get this to work:

[vba]
Dim strRange As String

'...later on in the function:
strRange = strRange & Sheets(gstrFilename).Cells(lngRow, bytCol).Row & ":" & Sheets(gstrFilename).Cells(lngRow, bytCol).Row & ":"

Range(Left(strRange, Len(strRange) - 1)).Select

[/vba]
thanks in advance!

[Bob Phillips]

This works for me

[vba]

Dim strRange As String

'...later on in the function:
With Sheets(gstrFilename)

strRange = strRange & .Cells(lngRow, bytCol).Row & ":" & .Cells(lngRow, bytCol).Row
End With

Range(strRange).Select
[/vba]

[mikerickson]

Since Cells(a,b).Row = a, why not use this

[VBA]strRange = strRange & lngRow & ":" & lngRow[/VBA]

or [VBA]strRange = strRange & Sheets(gsrtfilename).Rows(lngRow).Address(False,False)[/VBA]

[david000]

Since Cells(a,b).Row = a, why not use this

I noticed that too, but I didn't see your post. I went with a square range anyhow.

Also, try using the Address property.
[vba]

Sub CellAddress()

Dim strRange As String

'...later on in the function:
With Sheets("Sheet1")
strRange = .Name & "!" & .Cells(1, "A").Address & ":" & .Cells(100, "M").Address
End With

Range(strRange).Select

End Sub


[/vba]