VBA Excel 表范围和超链接

Question

The execution crash on this line at the end of my sub after I added some hyperlinks in an other column ( Method 'Range' of object'_Global' failed ).

Range("TABLE_XXX[[#All],[COLUMN1]]")

When I go in debug and press F8 it works. If I delete the code that puts hyperlinks it works like a charm.

Here is the code to add the hyperlinks

With mySheet
    .Hyperlinks.Add Anchor:=.Cells(depRow, urlCol), _
    Address:="https://www.google.com/", _
    ScreenTip:="Google", _
    TextToDisplay:="https://www.google.com/"
End With

Any idea of what happens?

EDIT: I just wrote a sample that reproduce perfectly the bug.

Sub Macro3()
    Dim objTable As ListObject
    Dim rng As Range
    ActiveSheet.Cells.Clear
    Set objTable = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B2"), , xlYes)
    objTable.Name = "TABLE_XXX"
    objTable.ListColumns(1).Name = "col1"
    objTable.ListColumns(2).Name = "col2"

    Set rng = Range("TABLE_XXX[[#All],[col1]]")

    With ActiveSheet
        .Hyperlinks.Add Anchor:=.Cells(2, 2), _
        Address:="https://www.google.com/", _
        ScreenTip:="Google", _
        TextToDisplay:="https://www.google.com/"
    End With

    Set rng = Range("TABLE_XXX[[#All],[col2]]")
End Sub

The first Set rng works but the second one don't (except in debug).

Answer 1

Replace

Set rng = Range("TABLE_XXX[[#All],[col2]]")

with

Set rng = ActiveSheet.ListObjects("TABLE_XXX").ListColumns("col2").Range