How to use ActiveCell Adress in variable?

Hello Gurus!

I've been pounding my head to the wall with an apparently simple problem. I need to store the adress of the ActiveCell in a variable and then use it in Range selection.

Sounds easy but I just keep getting a global error message.

I just need to select an area and copy it. Here is my code:

Dim CellLoc As String

Range("A1").Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = "Result"
ActiveCell.Offset(-1, 7).Select
CellLoc = ActiveCell.Address(False, False)
Range("B17:CellLoc").Select *<--- The problem lies here

From the immediate window I can see that CellLoc gets the value "I18" but when I try to use it in the range selection I get a global error message.

Any tips are greatly appreciated!


rgds,
cas