ActiveWindow.Close True

Sub SaveAs()
    ActiveWorkbook.Save
    ActiveWorkbook.SaveAs Filename:=Range("bh1").Value
    Dim WbLinks
    Dim i As Long
    WbLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    If Not IsEmpty(WbLinks) Then
        For i = 1 To UBound(WbLinks)
            ActiveWorkbook.BreakLink Name:=WbLinks(i), Type:=xlLinkTypeExcelLinks
        Next
    Else
    End If
    ActiveWindow.Close True
            Workbooks.Open Filename:= _
        "\\aaaa\1232.xlsm", _
        UpdateLinks:=0
End Sub