Copy and paste into values, EXCEPT pivot tables

[thousand]

Hi there

Does anyone now how this macro can copy and paste values except pivot tables.

Sub AllValues()
Dim wSh As Worksheet
For Each wSh In ActiveWorkbook.Worksheets
With wSh.UsedRange
.Copy
.PasteSpecial xlPasteValues
End With
Next wSh
    
Application.CutCopyMode = False
End Sub

Many thanks!

[Pecoflyer]

Please wrap your code with code tags. Thanks ( you know how it works)

[thousand]

Edited

https://www.excelforum.com/excel-pro...ml#post5034771

[thousand]

Hi, I can't edit the opening post. Thanks

[AliGW]

OK - I have done it for you this time. In future, you must do this yourself as soon as you add code to a post. Thanks.