Copy and paste as values, except pivot tables

Thanks sktneer, appreciate your reply and help.

I have 10+ worksheets to copy and paste as values. I wonder if there is any quicker and faster way by slightly adjusting the codes.

Thanks

Originally Posted by sktneer

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