pivot table

[reza_doang]

dear expert...

i create pivot table then drag one of my data row labels and values.
example:
Row Labels Count of Customer
Singapore 1000
Jakarta 500
London 1200
New York 800
etc

and when i double click in 1000, it will create a new worksheet including all data. Now, since there is many file and data in mine, i need to shortcut my job, what i want to achieve, is it possible if i drag all data in count of customer which from 1000 untill 800 and run macro it will create all data, so i don't need double click all data...

hope someone can help me...

thanks

reza

[Bob Phillips]

Dim cell As Range

With ActiveSheet.PivotTables("PivotTable1")

For Each cell In .DataBodyRange.Cells

cell.ShowDetail = True
Next cell
End With