Application Defined or Object Defined Error

[SBF12345]

I am receiving the "Application Defined or Object Defined Error" on line

 Selection.End(xlToRight).Offset(0, 1).Select

The entire chunk is this:

COM.Worksheets(AC).Activate            Cells(j, 1).Offset(-1, 0).Select
            Selection.End(xlToRight).Offset(0, 1).Select
            b = ActiveCell.Column

The overall goal is to set an integer value corresponding to the column for the activecell

 

[JLGWhiz]

Maybe this syntax

COM.Worksheets(AC).Activate
b = Cells(j - 1, Columns.Count).End(xlToLeft).Offset(, 1).Column