reeks tabbladen opslaan in nieuw werkboek met alleen waarden

[StephaanK]

Ik wil een aantal werkbladen opslaan in een ander werkboek als xlsx, en dat met alleen de waarden, dus zonder de formules en vba. Het originele bestand waar ik van vertrek moet ongewijzigd blijven (dus mèt de formules).
de te kopiëren werkbladen staan in een lijst :

bladenlijst = Array("Resultaten1", "Resultaten2", "Detail1", "Detail1", "Grafieken1")

en voor het opslaan van de waarden gebruik ik deze

Set Destwb = ActiveWorkbook
For Each ws In Sheets(bladenlijst)
    With ws
    .UsedRange.Value = .UsedRange.Value
    End With
    Next ws

voor het opslaan gebruik ik deze de tempfilepath is een servermap waar ik toegang toe heb en rechten om te schrijven.

FileExtStr = ".xlsx": FileFormatNum = 51
 With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        .Close SaveChanges:=False
    End With

mijn probleem is dat in mijn originele bestand dan ook de berekende waarden vervangen worden, en dat ik de formules enz kwijt ben en dat is niet de bedoeling.
Hoe kan ik die werkbladen van de lijst opslaan met enkel hun waarden en toch in het origineel bestaand de formules bewaren?

sTephaan

 

[edmoor]

Door het originele bestand niet op te slaan nadat de formules verwijderd zijn.

 

[StephaanK]

Ik heb het opgelost door de array als volgt te kopiëren :

Thisworkbook.sheets(Array("Resultaten1", "Resultaten2", "Detail1", "Detail1", "Grafieken1").copy)

hierdoor is de verwijzing naar het juiste werkboek correcter en werkt de verwijzing "Set Destwb = ActiveWorkbook" ook correct.