Copy als waarde

[Dappre]

Hi forumleden,

Middels de volgende code wil ik kolom Z t/m AE in tabblad Totaal graag kopieren als waarde, met als doel formules/verwijzingen te verwijderen.
Echter met deze code wil het niet lukken:

Sub Totaal()

With Sheets("Totaal")
.Range("Z:AE").End(xlUp).Copy
.PasteSpecial Paste:=xlPasteValues

End With

End Sub

 

[edmoor]

Zo?

Range("Z:AE").Value = Range("Z:AE").Value

Geef een correct bereik op om het te versnellen.