Only by changing your data source. Eg.

Sub Test()
Dim rCell As Range

For Each rCell In Range("DataSource").Columns _
(2).SpecialCells(xlCellTypeConstants, xlNumbers).Cells
If rCell 1 Then rCell = "yes"
Next rCell
End Sub


"vinstream" wrote in message
...
Hi,

I have a Pivot table with some numbers in it. Is there a way to
replace the numbers with a text?

For example: replace all numbers 1 with "yes" . Is this possible? If
not whats the best way to achieve this?


Regards,

Vinstream