Hi David

Thanks, that gives me a good starting point to look into.
Thanks a bunch

Thanks
PP
"davidm" wrote:


A less elegant way to go about your problem is to disable your code upon
closing via Workbook_BeforeClose event. Make sure you insert an early
line of "Exit clause" in your PivotTable procedure as shown.

Your event handler:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
* SheetX. Range("a65536").value = 99* 'or any text/number, and where
SheetX is blank
End Sub

Sub PivotTbl()
If SheetX.Range("a65536").value=99 '(or whatever) then Exit Sub
<code
End sub


--
davidm
------------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645
View this thread: http://www.excelforum.com/showthread...hreadid=395057