Copy and paste as values, except pivot tables

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