Error "Range of object Global failed"

Hello Everyone,

Kindly check my code for mistakes. I am getting an error in this part of my code as "range of Object _Global failed".

Dim feat_ure As String
ActiveCell.Offset(0, 1).Activate

feat_ure = Range(ActiveCell).Value

Thanks in advance