Guessed, thankyou for the section of code, it works perfectly when appended to the original section of code I had put together.
Macropod, thanks again for you help. My apologies if my approach is frustrating. Unfortunately I don't know enough about what I am doing to tackle everything in one go so had resigned myself to adding in functionality in sections as I learn what I am doing.
there is an issue at this line when I run the code
Code:
ThisWorkbook.Worksheets("InspectionPivot").PivotTables("InspectionPivot").TableRange2.Copy
I had set a variable for the excel table but I see you have not done that, could you explain how this is supposed to work?
Thanks
Thom