title: How do I remove links from a workbook linked to another
body: <p>I have a sheet(Questions) in a workbook(Rating) that has a button at the bottom of the Questions sheet that copies sheet 2(quote) from the Rating workbook and pastes it in a new workbook that is named according to the quote number and then saved.</p>
  
  <p>Here is that code: </p>
  
  <pre><code>Sub GetQuote()
      Range("AK548").Select
      Selection.Copy
      Range("AK549").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
  
      Dim Output As Workbook
      Dim FileName As String
  
      Set Output = Workbooks.Add
      FileName = ThisWorkbook.Path &amp; "\" &amp; ThisWorkbook.Worksheets("Questions").Range("AK545").Value &amp; ".xls"
      Output.SaveAs FileName
  
      Application.DisplayAlerts = False
  
      Output.Worksheets("Sheet1").Delete
      ThisWorkbook.Worksheets(2).Copy Before:=Output.Worksheets("Sheet2")
      Output.Worksheets(1).Name = "Sheet1"
  
      Application.DisplayAlerts = True
      Output.Protect Password:="12345"
      Output.Save
  End Sub
  </code></pre>
  
  <p>Now I intend on removing the links that now exsist between this new copy and the Quote sheet and only leave the values. How would I do this? </p>
  
  <p>I have found this code that should delete the links that exsist:</p>
  
  <pre><code>Dim Cell As Range, FirstAddress As String, Temp As String
      'delete all links from selected cells
      Application.ScreenUpdating = False
      With Selection
          Set Cell = .Find("=*!", LookIn:=xlFormulas, searchorder:=xlByRows, _
          LookAt:=xlPart, MatchCase:=True)
          On Error GoTo Finish
          FirstAddress = Cell.Address
          Do
              Temp = Cell
              Cell.ClearContents
              Cell = Temp
              Set Cell = .FindNext(Cell)
          Loop Until Cell Is Nothing Or Cell.Address = FirstAddress
      End With
  Finish:
  </code></pre>
  
  <p>All I have done extra is put this code in below the code that Names and copies the sheet and that did not work?</p>
  
  <p>So now how would I combine these two pieces of code so that everything gets copied and the links removed?</p>