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

Maybe this...

Sub AllValues()
Dim wSh As Worksheet
Dim aCell As Range
Dim pt As PivotTable
For Each wSh In ActiveWorkbook.Worksheets
    For Each aCell In wSh.UsedRange
        On Error Resume Next
        Set pt = aCell.PivotTable
        On Error GoTo 0
        If pt Is Nothing Then aCell.Value = aCell.Value
        Set pt = Nothing
    Next aCell
Next wSh
End Sub

Maybe this...

Sub AllValues()
Dim wSh As Worksheet
Dim aCell As Range

For Each wSh In ActiveWorkbook.Worksheets
    For Each aCell In wSh.UsedRange.SpecialCells(xlCellTypeFormulas)
        aCell.Value = aCell.Value
    Next aCell
Next wSh
MsgBox "Finished"
End Sub