Copy and paste as values, except pivot tables

This works perfectly copying all formulas and pasting as values. However, I need a code to not copy pivot tables. Any suggestions?

Sub AllValues()

'Loop all worksheets in workbook

Dim wSh As Worksheet
For Each wSh In ActiveWorkbook.Worksheets

'Copy

With wSh.UsedRange
.Copy

'Paste

.PasteSpecial xlPasteValues
End With
Next wSh

Application.CutCopyMode = False
End Sub

Crosspost Excelguru

Link supplied by mod: https://www.excelguru.ca/forums/show...T-pivot-tables

Thanks