Active screenupdating false


Right click the Command Button again, and then click View Code from the right-clicking menu.5. Export As Fixed Format Type:=xl Type PDF, _ Filename:="C:\PDF\Export.pdf", _ Open After Publish:=False Application.

In the opening Microsoft Visual Basic for Applications window, please replace the original code in the Code window with the following VBA code. Screen Updating = True End Sub Note: In the code, Command Button1 is the Command Button name you will use to save active sheet as PDF file.

Despite the wild parties, I was able to get some work done over the holidays.

There is a new sample file on the Contextures website, that changes all the pivot tables, when you change a report filter in one pivot table.

Sub Comment Add Or Edit() 'method suggested by Jon Peltier 2006-03-04 'adds new plain text comment or adds text 'at end of existing comment text Dim cmt As Comment Set cmt = Active Cell.