Close All worksheets with 1 click

[Thomas K.]

Hi

 

is it possible to close 10 (or more or less) worksheet without clicking 10times on this tiny X-button? 

 

Why I am asking: when publishing my plots, sometimes there are some worksheets that hide on the second screen. When they are still open there is only an X showing in my pdf files.

 

Thanks for help.

[Pat Stanford]

The following script should do what you want.  Test before using. Very lightly tested.

 

Procedure CloseAllWorksheets;
VAR	H1:Handle;

Begin	
	H1:=GetTopVisibleWS;
	While H1<>Nil DO
		BEGIN
			ShowWS(H1, False);
			H1:=GetTopVisibleWS;
		End;
End;

Run(CloseAllWorksheets);

 

[Thomas K.]

@Pat Stanford: thank you very much for sharing your knowledge. As always!