How do I break links on workbook after saved in subfolder

Hi

I was given this macro and ive amended but just trying to finish off.


It saves the active workbook as a copy called summary1.xls in a new subfolder created. What im trying to do is break the links in the new summary1.xls after it saved to new location.


Can this be done?

Sub PERIODEND()
 
    Dim sName As Variant, bFolder As String, dest As String
    
    sName = InputBox("Subfolder name")
    If sName = "" Then Exit Sub
    
    bFolder = "T:\Passenger Accounts\SHARED\passacc\Excel\passacc\backup"
    
    
    If Dir(bFolder & "" & sName, vbDirectory) = "" Then
        MkDir bFolder & "" & sName
    End If
    dest = bFolder & "" & sName & ""
    
    ActiveWorkbook.SaveCopyAs dest & "NEW SUMMARY1.xls"