Need assistance with basic task: find last occupied column (using .End(xlToLeft).Column?)

[OaklandJim]

Team Mr. Excel

I am trying to locate the last occupied column. I thought that I knew how to do it. But I cannot figure this simple task out.

I have a one-celled range name for the upperleftmost cell in the data range (cell O4). In code a VBA range object named rTargetCell that points to that cell. Data has 12 columns. There is nothing to the the right of the data.

Incidentally I have nine columns of user data in columns A through I.

    Dim rTargetCell As Range
    
    Dim iLastColumn As Long
    
    Set rTargetCell = [ContactsData].Range("Header_FirstNameData")

    iLastColumn = rTargetCell.End(xlToLeft).Column

    Debug.Print "iLastColumn = " & iLastColumn

So, I am hoping for code to return the number 26 as the last column. (Column Z is the last one with data.) But Debug.Print reports column 9.

I appreciate your assistance!

Jim

 

[MARK858]

What do you get with the line below?

Debug.Print Cells(rTargetCell.Row, Columns.Count).End(xlToLeft).Column

 

[OaklandJim]

Yes, that did it. Thanks very much.

 

[MARK858]

You're welcome