Ist es machbar eine bestehende Tabelle (oder Tabellen),
ohne Formeln (nur Werte, Formatierung ....) in eine neue XLS Datei zu kopieren ?
mfg Simon
Dim myworksheet As Worksheet
ActiveWorkbook.Sheets.Copy After:=Workbooks(Destination + ".xls").Sheets(SC)
For Each myworksheet In Workbooks(Destination + ".xls").Worksheets
myworksheet.UsedRange = myworksheet.UsedRange.Value
Next
Set myworksheet = Nothing
Workbooks(Destination + ".xls").Close SaveChanges:=True