I am not sure how you have declared your StRange Variable. The
following example does work though...

Dim stRange As String

stRange = "A1:" & ActiveCell.Address
Debug.Print stRange
Range(stRange).Select

I assumed you were using a string and not a Range Object. Hope that
helps