werkbald als waarden opslaan

[knabbie]

Met onderstaand stukje code heb ik het voor elkaar gekregen dat het active werkblad word gekopieerd naar een nieuwe werkmap en opgeslagen met de naam die gevormd word door de celen c58 en c57

 ChDir "C:\vracht"
        ActiveSheet.SaveAs Filename:="C:\vracht\" & [c58].Value & [c57].Value & ".xls", FileFormat:= _
       xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=True _
       , CreateBackup:=False
       ActiveWorkbook.Close

Het probleem is dat bij het opnenen van de nieuw opgeslagen werkmap, hij een melding geeft dat er koppelingen zijn naar een andere werkmap,

hoe kan ik de code zo aanpassen dat het active werkblad word opgeslagen met de juiste opmaak en waarden zonder dat de formules mee worden opgeslagen?

 

[Wigi]

Sub fff()

    ActiveSheet.Copy
    
    With ActiveWorkbook
        
        .Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
        .SaveAs Filename:="C:\vracht\" & Range("C58").Value & Range("C57").Value, ReadOnlyRecommended:=True
        .Close 0
        
    End With
    
End Sub

Wigi

 

[knabbie]

Wigi Thanks

Precies zolas ik het wil hebben.