I think this will do it:

        Set col = Range(ActiveCell.Offset(0, -1).Value)