Run-time error '1004: Method 'range' of object'_Global' failed

Hi,

I am getting this "Run-time error '1004: Method 'range' of object'_Global' failed" for the below code.Please advise.

Sub LastRow(control As IRibbonControl)
Dim LastCol As Variant
Set LastCol = Range("XFD" & ActiveCell.Row).End(xlToLeft)
    
    Application.GoTo Range(ActiveCell, LastCol)
End Sub

Thanks in advance!

you've set your variable as a 'variant' data type, try range instead.

I have changed to Range but still getting same error.
Getting this error mainly this type of file "Microsoft Office Excel 97-2003 Worksheet"

Thanks!

You can not set to non VBA object.
I think LastCol is a long variable, not an object, so remove set

Set LastCol = Range("XFD" & ActiveCell.Row).End(xlToLeft)

Dim LastCol As long
 LastCol = Range("XFD" & ActiveCell.Row).End(xlToLeft)

If I remove set and put the above code,getting same error for this line:

Application.Goto Range(ActiveCell, LastCol)

Thanks!

What are you trying to do?
I do not like go to and will avoid using it if I can.

If I remove go to what I have to use instead?

Thanks!

Only if I knew what are you trying to do.

I am trying to select active cell to last used cell in a row.

Thank!

I do not think you can use an active cell as cells address.

Sub test()

Dim LastCol As Long
 LastCol = Range("XFD" & ActiveCell.Row).End(xlToLeft)

 Range("A1" & LastCol).Select

End Sub

Make clear what you want the result to be.....

This one selects the active cell until the last cell in that row

Sub LastRow()
Dim LastCol As Integer
With ActiveSheet
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
Range(ActiveCell.Address, Cells(ActiveCell.Row, LastCol)).Select
End Sub

This code is working only for first row.
If I want to select any other rows it is not working.

Thanks!

This one works too, but avoid active cell again.

Sub test1()

Dim LastCol As Long
 LastCol = Range("XFD" & ActiveCell.Row).End(xlToLeft)
 Range(ActiveCell.Address & LastCol).Select

End Sub

Thanks for now let you know if I have any problem.

For selection of selected cell (on any row) to last cell used in the row:

Sub LastRow()
Dim LastCol, actRow As Integer
    With ActiveSheet
        actRow = ActiveCell.Row
        LastCol = .Cells(actRow, .Columns.Count).End(xlToLeft).Column
    End With
    Range(ActiveCell.Address, Cells(ActiveCell.Row, LastCol)).Select
End Sub