Hey vbfbryce,

Thanks for your reply unfort it didn't work and i really don't have the ability to work the coding out at this stage! But it did give me the idea to go back to basics. So i cut all the coding back and I'm just attempting to open an new work book for each cell in the pivot and work my way through the list. The following code works and opens range (B4) then returns to the pivot and opens (B5) in a new worksheet but I don't seem to be able to loop it. The coding has been done via recording of a macro.

Code:
 Range("B4:B29").Select
    Range("B4").Select
    Selection.ShowDetail = True
    Sheets("Pivot Table").Select
    Do
    Range("B5").Select
    Selection.ShowDetail = True
    Sheets("Pivot Table").Select
    Range("B6").Select
    Selection.ShowDetail = True
    Sheets("Pivot Table").Select
    DoUntillast
Again any help would be greatly appreciated.

Dan.