スキルアップ・問題解決なら、モーグにおまかせ！

このコードで別のエクセルデータの値をそのエクセルを開かずに取得できるようになりましたが
リンクが解除されません
リンク解除のコードご教示ください
 
FOName = "ＸＸＸＸ"
'FLName = Trim(Cells(6, 1))
STName = "ＹＹ"
 
For I = 2 To 10000
    If Cells(I, 1) = Null Or Cells(I, 1) = "" Then
        Exit Sub
    End If
        
    FLName = Trim(Cells(I, 1))
     
    '請求書番号
    On Error Resume Next
    Cells(I, 4).Formula = _
        "='" & FOName & "\[" & FLName & "]" & STName & "'!" & "R3C15"
    Cells(I, 4).Value = Cells(I, 4).Value
 

マクロの記録で、リンクを解除するコードを作成してそれを確認してみてはいかがでしょうか。

ActiveWorkbook.BreakLink Name:=FONameA & FLName, Type:=xlExcelLinks
で解決しました