Application breaks with "...contains links to other data sources" when code opens workbook. No links can be found.

[Ark68]

With this code ....

        Dim wba_name As Workbook
        Dim tCol As String
        
        wba_name = "WS " & format(ws_vh.Range("B17"), "dd-mmm-yy") & ".xlsx"
        If Dir(path_name & wba_name) <> "" Then '.tglb_wpl_crtt.BackColor = RGB(0,153,211)
            Workbooks.Open (path_name & wb_name)
            Set wb_name = Workbooks(wba_name)
     ...

When it reaches the line in red, Excel displays dialogue
"This workbook contains links to other data sources."

Question ... considering the code, would this be normal behaviour or is there an error with the code? Just wondering if I need to worry about it.
I've searched both documents for external links (Find links (external references) in a workbook - Excel) but nothing was found. I don't really know what links are being found to be updated.

If there is no need to be concerned, is there a way I can block this message from interfering with the flow of my application? Will displayalerts suspend this message?

 

[mole999]

try >
Application.DisplayAlerts = False

just after Dim tCol As String

 

[Ark68]

Thank you Mole for taking a moment to suggest a solution.

I applied your idea, but the dialogue is still appearing.

Dim wb_name As Workbook
        Dim tCol As String
        
        Application.DisplayAlerts = False 
        
        ws_name = "WS " & format(ws_vh.Range("B17"), "dd-mmm-yy") & ".xlsx"
        If Dir(path_name & ws_name) <> "" Then '.tglb_wpl_crtt.BackColor = RGB(0,153,211)
            
            Workbooks.Open (path_name & ws_name)  ' <--- "This workbook contains links to other data sources."
            Set wb_name = Workbooks(ws_name)

 

[Fluff]

try

Workbooks.Open Filename:=path_name & ws_name, UpdateLinks:=False

 

[Ark68]

Thank you Fluff! That worked.

 

[Fluff]

Glad to help & thanks for the feedback