Since the Range.Address Property returns a String type, you should declare CellLocation as a String:
Code:
Dim CellLocation As String
Then after assigning the ActiveCell.Address to CellLocation and running the rest of your code, use
Code:
Range(CellLocation).Select
at the end.