Tabelle ohne Formeln kopieren

Eine Tabelle soll in eine neue Arbeitsmappe kopiert werden,
allerdings ohne Formeln, sondern nur mit Werten.
Sub Tabelle_kopieren()
   Dim Zelle As Range
   Set Quelle = ActiveWorkbook
   Workbooks.Add
   Set Ziel = ActiveWorkbook
   For Each Zelle In Quelle.Worksheets("Tabelle1").UsedRange
      Ziel.Worksheets("Tabelle1").Cells(Zelle.Row, _
         Zelle.Column).Value = Zelle.Value
   Next Zelle
End Sub