ࡱ> 20-orm1 Caption = "UserForm1" ClientHeight = 3480 ClientLeft = 45 ClientTop = 330 ClientWidth = 6225 HelpContextID = 200 StartUpPosition = 1 'CenterOwner TypeInfoVer = 442 End ThisWorkbookThisWorkbookSheet1Sheet1UserForm1UserForm1Module1Module1ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkboPROJECTwm tPROJECTVSummaryInformation('DocumentSummaryInformation8(ok/&H00000000 Document=Sheet1/&H00000000 BaseClass=UserForm1 Module=Module1 HelpFile="" Name="PUPOptions" HelpContextID="0" VersionCompatible32="393222000" CMG="2C2E8020801E841E841A881A88" DPB="26248A2A7EDE65FB65FB9A0566FBCFCC2E2862891AD6AD41880D11E4BAC27EFC6DB04468776456" GC="20228CCF8DCF8DCF" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C UserForm1=0, 0, 0, 0, C, 112, 112, 1025, 416, C M \pJohn Walkenbach Ba= ThisWorkbook=xxx<(<X@"1hArial1hArial1hArial1hArial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)                + ) , *  `Sheet1Tcc~  n  dMbP?_*+%"??U>@  7 Sheet1 m#xME ThisWorkbookSheet1 ,UserForm1Module1< (SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2|xME0DE3408} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDOp tion 0licit Sub _Initialize() Me.Ca= APPNAME Dim i As Long, OpenUtils  )pp;aA.CountA(Workbooks("pup6.xla").Sheets(1).Range("L2: L83")%LabelNumberH("PUP u!1es currently o': " &*(ButtonList.EnAK]Not4= 0 UnloadAll  With ComboBoxFileLim]AV.Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10 1"(nod l)"DIndexGetSetting(#@Dm, "Ds"MaxBk20End ,:cb0RemeX .ValuM` * -1Last"ityg ShowProgress &?# -$*MultiPage1& ^B@%e_C`yFkńMsgaSr @ss`vbTabtCxrLf!+r%]2!+83$If ]Cells(rj2) <> "" Theng2& Chr (149)`" B_ E vba A+If Eies4 N05 MThisECxm0AHelp622 ᰻ inQs ח  !B(UP 74?:CancelcW? "?  Ab8 h@Hh H  p H0p( "HP Xh "px>  x]$Power Utility Pak]$PUP v6 Options20A B@am opA1pup6.xla$*%,%.UtilityG|j8 B@B 8o CAttribute VB_Name = "Module1" Option Explicit Pub$ Const PUPNAME As SngxPower Utility0 Pak jAPjUP v6 os2 Subg@figurej() Call CheckAddInUserForm1.Show End @ riv^aO6MOnrror GoTo CloseMe)If Workbooks("pup6.xla")1eets(1).Range(`"A1")}z" TheitB+:+This,. W V0* pHd PUPOptions4@j = r ɟC9 J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlt|bxMEPS<S<S<S< vP ~ (`0` "  :00pH* P<XB8   8 H4X  "D2( N`  "     "( "0X`h"p   "0X `Jp    " *(:X6@ 4P,X <,   0"8 $@&h "   x`  (x]L2:L83pup6.xla$*%,%. &%('$PUP utilities currently open: $ 0( $ 2(42 s $ 6(4マ 8 (no limit)D 9: @SettingsMaxUtils$>9<q @SettingsRememberSettings$> B(D @SettingscbRememberLastUtility$> F(D @Settings ShowProgress$> H(D J "' "C@L " @SettingsProgressThreshhold$>9Dokqh N(DoP](PUP utilities currently open: V V V X X'RRO TS T pup6.xla$*%,%Z R$\  Tpup6.xla$*%,%Z X'RkH T R ` @A@^o@ H J(4 H d(4| H f(4o Unloads all PUP utilites]]]pup6.xla$*%,.j Close any that are open j%p &%('n  T n T j%Z T j,Z T j%Z!d$*B@B 7k Turier PUP utilities currently open: L2:L70 j%. &%( 0(tG 2(4M 6(4 rB@tGIF8o Store the settings @SettingsMaxUtils 8!<A@xp,tm @SettingsRememberSettings B!DA@x{ @Settings ShowProgress H!DA@x@ @SettingscbRememberLastUtility F!DA@x H @SettingsProgressThreshhold J!DA@x%\d @SettingsProgressThreshholdA@z` kp6 If ListBox was changed, unload any excess utilities΍(pup6.xla!CloseExcessUtilities &B@| A@r B@BoP Help button in Options tabpup6.xla!ShowPUPHelp &B@|oh A@r B@Bo80RAttribute VB_Name = "UserForm1" " Bas0{424C259F-DB04-4218-A6BD-176FC4403BC7}{81BFC878-9C8A-48B5-A01E-D0EF7_VBA_PROJECT$+dirUZUserForm1 +1+fcal Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\Syb#OLE Automa^DOfficDO>ficDD2DF8D04C-5BFA-101B-BDE5DAAB42DProgram Files\@CommonMicrosoft Shared\@10\MSO.0DLL# 10.0 Object LibraryKMSForms>SFrms3D452EE1-E08F`A-8-02608C4D0BBB4RDOWSSFM20L'B @_&/;"1jpAp00}#@8p# 50 AB2E8696D-4847FE-B221-040B87@292B4F6DOCUME~1\jwalk\LOCALSTem`p\VBEaB6.xexdbU;!.E .`M A"BBThisWorkbookG"Ths"Wmkbok 2 (HB1B%XB,!mT"B+qS@heet1G SŠe_t1 au2 User)@ UerV2//b#(@ "godule#gou!2Dk o`-|!bFE-B221-040B87292B4$  c}*R KQDBTahoma0174OKButtonOptio(OK3uTahomay(CancelyuTahomayaR KQltBM6(odule1=0, 0, 0, 0, C Oh+'0x hp 4@ X dpPower Utility Pak v6PUP v6 Support FileJ-Walk & Associates Version 6.281999-2005 J-Walk & Associates. All Rights Reserved.John Walkenbach6.0Microsoft Excel@@K+՜.+,0 X`|  Excel Add-In ToolsJWalk & Associates  Sheet1  Worksheets F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89quTahomayay  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{B2E8696D-4847-48FE-B221-040B87292B4F}#2.0#0#C:\DOCUME~1\jwalk\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   ɟC9ThisWorkbook1z439fc8cbThisWorkbookm% Sheet120439fc8cb Sheet1%UserForm12P439fc9beUserForm1b0Module12Q439fc9beModule1|Hh0HNfFnTQM$8w!"vD;&n LؚKL/Excel+VBAWin16~Win32MacVBA6# PUPOptions(stdole`OfficeuMSFormsC ThisWorkbook| _EvaluateSheet1 UserForm1)UserForm_Initialize5cCaptionxAPPNAMEKpi` OpenUtils Application*CountA38 WorkbooksBSheets Range LabelNumberOpen| ButtonListzEnabled۪UnloadAllButtona#ComboBoxFileLimitPList* ListIndexQ GetSettingPUPNAMEӆcbRememberSettingsqTValueKcbRememberLastUtilitycbShowProgress^vComboBoxThreshholdAddItem  MultiPage14?ButtonList_Click;|MsgQrivbTabc9vbCrLfCellsChrK~MsgBoxR vbInformationncbShowProgress_ClickLabelProgress1NLabelProgress2NUnloadAllButton_Clicke ConfigSheetC WorksheetRowCountuColumnsp9OKButtonOptionsSetFocusOKButtonOptions_Click94 SaveSetting DeleteSettingRun_PUPHelpButton2_ClickwCancelButton_ClickModule1b ConfigurePUPv CheckAddInShowCloseMeUserFormN CancelButtonLabel2,PUPHelpButton2JSLabelMaxFrame1x Ho "ei86pFz?a+1+fo{>    ,"!#1%&'()*+./3564978:;<=i88i*WJO++i89i*WJO++i90i*WJO+1+CompObjysxx<fo(CompObjn  !"#$%&'()*+-./0123456789:;=>?@ABCDEFGHIJKLMNOPQRSTVWXYZ[\]^_`abdfghijklmnopqrstuvwz|}~ WXYZ pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19q1H   (e Utility Mgmtlp Remember Settings  Progress Indicators tieTab3Tab4Tab55Tahomab5$H c8}(eWRoot Entry FpM'+5Workbook(_VBA_PROJECT_CUR"&$O +1+VBA%O ++floi97 n``++CompObjnf`oCompObjnf$X#Page11y5,$Y!Page21y5,$Z!Page31y5, P i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(The threshold is the minimum number of cells to process before showing the progress indicator. There is some overhead involved in showing a progress indicator. The optimal threshold setting will depend on the speed of your system. %5Tahoma\F/S}1V3Show progress indicators for lengthy operations5TahomaAH,EF5Tahoma4(PProgress indicator threshold:5Tahoma$H R}4(0R2 LabelProgress2N,O|cbShowProgress0P8ComboBoxThreshhold `A0Q2TLabelProgress1" [ i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q$H a}4(,3$a#Frame1y S i*WJOMicrosoft Forms 2.0 FormEmbo!CompObjpCompObj #aVBFrameAedded Object Forms.Form.19qH(2MMaximum number of utility files to keep in memory:A5Tahomab5\(IA lower number will reduce memory usage, and may enhance performance. 4085Tahomab5AX,EF5Tahomab5(LListuTahomab5 ( UUnload AlltuTahomab50(PUP utilities currently open: I@Tahomab5$H N}4( (C2hLabelMax(@2|Label2axp r0N8ComboBoxFileLimittr( H8ButtonLista- ,E@UnloadAllButton . 0G2TLabelNumberOpen S n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qtG<AU#a1V3Use Ctrl+Shift+R to display the most recently used PUP dialog box5TahomadG<3R a1V3Remember the last-used settings in PUP dialog boxes5Tahoma8H  `}% OptionsxR KQDBTahomap4`cbRememberLastUtility#00cbRememberSettingsit9 Sns#$, 2;8CancelButton~;,APUPHelpButton2s( V#9MultiPage1to Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserFCompObjm