Hi
Insert this in the codesheet for ThisWorkbook.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
sh.Columns("A:A").NumberFormat = "0"
End Sub

Best regards,
Per

On 1 Maj, 22:06, "J.W. Aldridge" wrote:
from double clicking on a total in pivot table...