【VBA】外部リンクカット

Public Sub linkCut(usewb As Workbook, useshName As String, cutDir As String, cutfileName As String)
' Debug.Print cutDir & "[" & cutfileName & "]"
usewb.Sheets(useshName).Cells.Replace What:=cutDir & "[" & cutfileName & "]", Replacement:="", LookAt:=xlPart
End Sub