ࡱ>  2 5 . !"#$%&'()*+,-/0134]z789:;<F>?@ABCDE6GHIJKLMNOPQRSTUVWYZ[\f_`abcdeX{hijklunopqrstgvwxy}|~Root Entry FR3Workbookl _VBA_PROJECT_CUR"‚VBA‚  !"#$%&'()+,-./0123456789:;=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~ \pJohn Walkenbach Ba= ThisWorkbook=v.<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\);_(* "-"??_);_(@_)                + ) , *  `Sheet18cc    dMbP?_*+%MNEC SilentWriter 95g od,,` T4R7XdCustom page 1BBCustom page 2BBCustom page 3BB"d,,??U} I>@7 Sheet1 LjSCdB#mEJmI{ F ^)Je&6xME Sheet1 *vThisWorkbook <Module1:UserForm1 \ (SLSS<N0{00020820-0000-0000-C000-000000000046}(%` % %`h8kdDJ xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 8CmB#<kD|tT/FVV%Gt\RxVV%Gt\RkD|tT/MEPSLSS6"<<<<N0{00020819-0000-0000-C000-000000000046}P @`|@T `|@Xi  2%@ %8 %@XH@@\T@kdDJ$*\Rffff*524464996b4" "   ( 8Aoh@A"oPHAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Ope@n() Call AddShortCutMenus EnBd !BeforeClZ@(Cance"s Boolean -Remove.p|x C;xME]` ]_ ( W ( CellColumnRowD#'* * >%@.,,Cells, Columns, Rows FlH ,!B%D.0 09JPrint Selection9LPrintSelection9N9ZqX FlH ,!B%D.0 0Toggle Word Wrap9LWrapText9N9Zq RlH ,!B%D.0 0 Change Case9L8ڄqdo sub menu items FlH 0!B%D.4y 49Z Upper Case9L MakeUpper9Nq FlH 0!B%D.4 49Z Lower Case9L MakeLower9Nq FlH 0!B%D.4 49Z Proper Case9L MakeProper9Nq8 (Cell menu only FlH ,!B%D.0 09ZCenter Across Selection9LCenterAcrossSelection9Nq FlH ,!B%D.0 09J9Z Quick Chart9L PUPQuickChart9Nq k FlH ,!B%D.0 09J9ZSynchronize Sheets9LRunSynchSheets9Nq FlH ,!B%D.0 09J9ZToggle PUP Date Picker Toolbar9L RunDatePicker9Nq FlH ,!B%D.0 09J9ZToggle PUP InfoBox Toolbar9L RunPUPInfoBox9Nq ( Various objects in a chart ( ( ChartFloor and Walls Format AxisFormat Data Series Plot AreaSeries Object/PlotD#'* * >%@., FlH ,!B%D.0 09J9ZExport Chart as Graphic...9LRunExportChartAsGraphic9Nq FlH ,!B%D.0 09J9ZConvert Chart to Picture...9LRunConvertCharttoPicture9Nq%E-CxME(<.<2< <h&H `(`*x ,Mn% 0%`4 B`6C "h9`(.`*J |`(!B`* 0 hA B("px 2. "0X ` h   "    "8 @X ` "x    "    8P "X      "  @ `  "h   "    ( H` "h   &  "   ( "0 Xp   x  $P"h   "  "  ( 0 $8 ` "    " 0  8  @  H  ` x   * "      8 "@ h p x   "      "( P X "`   * "    " H h "p   $   "  ( 0 P h "p   &   "  (H` "h$ " (@X (` " "08@` " "(08"@ h " "(082P   .*8"X 8     *&, @ ` h x $  $ *0 8 *P , " . " ,0 `  " $ $ * Hhpx " F x]$Power Utility Pak<Procedures in this module add and remove shortcut menu items_]Xpx FlH ,!B%D.0 09ZChart Data Labeler...9LRunChartDataLabeler9Nq FlH ,!B%D.0  09J9ZChart Report...9LRunChartReport9Nq (Desktop >%@.,0Desktop FlH ,!B%D.0 09J9ZMinimize All Windows9L MinimizeAll9Nq FlH ,!B%D.0 09Z Tile Windows9L TileWindows9NqP FlH ,!B%D.0 09ZActivate a Window...9L%ActivateAWindow9Nq FlH ,!B%D.0( 09ZInteractive Hide/Unhide...9LRunInteractiveHideUnhide9NqPDocument >%@.,1Document FlH ,!B%D.0` 09J9ZToggle Vertical Scroll Bar9L`ToggleVScrollbars9Nq FlH ,!B%D.0 09ZToggle Horizontal Scroll Bar9LToggleHScrollbars9N q FlH ,!B%D.0B 09ZToggle Grid Lines9L! ToggleGrid9Nq FlH ,!B%D.0R 09ZToggle Row and Column Borders9L ToggleBorders9Nq FlH ,!B%D.0 09ZToggle Sheet Tabs9L ToggleTabs9Nq FlH ,!B%D.0 09ZToggle R1C1 Reference Style9L ToggleRefStyle9Nq FlH ,!B%D.0 09J9Z Hide Window9Lx HideWindow9NpqPly >%@.,, Sheet tab FlH ,!B%D.0w w 09J9ZSort Sheet Tabs...9LRunSortSheetTabs9Nq FlH ,!B%D.0e 09ZDelete Empty Sheets9L%DeleteEmptySheets9Nqx FlH ,!B%D.0 09ZActivate a Sheet...9LCActivateASheet9Nq FlH ,!B%D.08 09J9ZInteractive Hide/Unhide...9LRunInteractiveHideUnhide9Nqp FlH ,!B%D.0 09J9Z Hide Sheet9LHideActiveSheet9Nq o ]8P  > (e ( CellColumnRowD#'* *7@zPrint Selection7BB@TToggle Word Wrap7BB@TToggle PUP Date Picker Toolbar7BB@TToggle PUP InfoBox Toolbar7BB@Ta Quick Chart7BB@TaSynchronize Sheets7BB@T Change Case7BB@TCell menu onlya (GCenter Across Selection7BB@Tjq ( ( ( ChartFloor and Walls Format AxisFormat Data Series Plot AreaSeries Object/PlotD#'*x *7@Export Chart as Graphic...7BB@TChart Data Labeler...7BB@TeConvert Chart to Picture...7BB@T Chart Report...7BB@Tq (Desktop7@eMinimize All Windows7BB@TX| Tile Windows7BB@TX|Activate a Window...7BB@T Interactive Hide/Unhide...7BB@Tq Document7@eToggle Vertical Scroll Bar7BB@TToggle Horizontal Scroll Bar7BB@TeToggle Grid Lines7BB@TX|Toggle Row and Column Borders7BB@TToggle Sheet Tabs7BB@TToggle R1C1 Reference Style7BB@T Hide Window7BB@TqxPly7@ Sort Sheet Tabs...7BB@T8Delete Empty Sheets7BB@T<Activate a Sheet...7BB@TInteractive Hide/Unhide...7BB@T Hide Sheet7BB@TH@qqoxh@ Use this is if you have extra menu items that weren't deleted] ( ( ChartFloor and Walls Format AxisFormat Data Series Plot AreaSeries Object/PlotD#'* * >%@B@v (o@8KAttribute VB_Name = "Module1" Option Explicit Pub$ Const APPNAME As SngxPower Utility Pak 'Procedures in this m add and remove shortcut menu items Sub AddSCutM@s() Dim iLonpg, m c%>smmiBa0r, IX)Co itrol, 6;ObjecG{3yPIC L5v951ForA= 1 To 3 mArray("Cell", "ColumnRow")(i - 1eSet W= A*pa.Rs(m) '&s,h%%?&-t=)"nps.(Type:=mso=Button, Eporary:=TrueH&WithMA.BeginGproup@; CaC@Print Sel@UA.OnAc V FaceId197EA)GGBB:Toggle Word 0Wrap:Text9|Pop up{Change Caseh0'do s`xiz>K4o="M_V_Vy; !.s+BUppiUMake" U4rbrd&`.Lµke"<ml _9`@9COZ$)gIfh enonlyKߑ?%"Aa x]XCent/AcrosP}Z2ZcS?[3WA?j?jy0=jPj3@Quick @Prg[lUP RIf  ?#0|1~||P ?B Sax$Synchronize Sheets4RuncbObn" ' r@9"tPUP 4DapP #6Toolbar_POs!!ϞVObKFal|se_!XInfoBox| jFphKYNP i'pVarious oa chardFloWalls"orma xipa SerieRPlo reag//m$́s  b2Tb ST as Ghic...B,CUAsTO!D!C+zѯ2 A 2 D!`vertto At2 tod̳ With Set Item = cb.Controls.Add(Typ@e:=msoTButton, Zporary:=True)$.FaceI"db197 Ca ption"Chart Data Labele r..." /OnAc0Run321.End#xBeginGrob\'Uth "C HorTiza dH# / Grid LineUD}qPO*OOOU" @ ( Row n Column Border KV ?  @  SheTab  @  R1C1 Reference Style%!jd'YO| 4__qB O osbHqb`a}o!rodo؝Plydc"tabsT/ /d)¯Fe39!So÷-wO.....' ? ? = lePEmptys;?;4;D@te /./.o__@= ~ ؟ ƟD// / / ?p`)))ߡߡ Jߡߡ6***fButton, temporary:=True) With Il8H.BeginGroup = False8FaceId0197,Caption."Hide Sheet"a@OnAc ! vBe &End    Sub  Remo*ortCutMenus(Dim i As Lo ng, m StringzOn Error!sume Next |ApplicaWK Fip PTo 3 m Array("Cell", "ColumnRow")(i - 1M%4.CommandBars(mntr@ols("P_t Sele")t.Dt Toggle Wo"rrapPUP Date P icker=olbarInfoHBoxQu Chart#Synchroniz s nge PCase 'v m only ]If@= 1 Then mCentOAcrossoG iGJHAIPF lo Wal lsS@mat XAxi>a rDiePlo@r$ea!SeObzj@Q/\\a\E x`t> as G@Vhic...9EaVa Labcr_kConHvereto^ture,!;7g<τ"Deskto@yaHN Minim`All`ndowaTi!i‘a$ wh Iaaave /UnhOso%"oc`n7#ġV=l ~Sr@$K#CHorizonta$Grid xLink@ av B@er9"$B Tab_!%R1C1,ferencTtylۯQ!' }W# p"Ply"pS  # r Empty> H.r"?.?.BI!;SGo0ϒesetiRShc3!'Use@ this !f you haP: extraoitXems@cw!'ht d"d_s Varianĕk#j "j"j_$orqlkk| "kəȟ '.>RAcUyQ PS<S<S<S<<<<<|V0{933C3754-DD7C-4742-98BD-53033DF1FE93}{ACEF6A77-679C-4653-991D-AF4F7534137E}h0(%X0 % X `Z z ) !% ~` 0(" (@ X hx R :0 8@Hh    R  (:8x   "  " x`] V!L Activate a SheetKT \!^$8.Z Z!` ZB@bd Z! is hidden. f f Unhide it? h j &$d lCe  Z(`wD nG Can't unhide Z! p &A@djtkkActivate a WindowKT \!^$r.Z Z!`script ZB@b / Z!t vG x Z(tjd8 Z!L is hidden. f f Unhide it? h j &$d l Z(` nG Can't unhide Z! p &A@djkxkpnh A@rNooPA@Xo8  A@ro(Attribute VB_Name = "UserForm1" " Bas0{933C3754-DD7C-4742-98BD-53033DF1FE93}{ACEF6A77-679J653-991D-AF4F7534137E} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0lici0t P!% Sub OKBut ton_Ck() Dim Sel As Objec 3  C.Ca2 "Activ3a She\et!t/= s(ListBox.Valu&e#A If .VisiAZThenoD,.EGEl Msg(E ›& " is hidden." & vbCrLf "Une it?",PQuesBX+YesNo, AP@PNAME)zvZb O+A!Oerror ResuNexYAE(yE>= Ï4Err <> 0 C8 "Can'xt u-5<0Inf@aA1.VF+GoTo 0 End IfWindowV_B #_Bk&ECStV= xlMini i@m ON&lMee@JMMMA7`MM*MMer.kMa?aMtMNc2Unload MB0ub K _Ddbl#By`nccMSs.ReturnBoo0lean$  p Module2=C_VBA_PROJECT^dirv__SRP_0 m% " ( 8 HX` "h pJ 6HP "X `.p. "TPX"`hbp"ZX` "hp\x "NHP "X`Xh "dH P "X ` ^h   "  X @ H "P X p            (  8 H "P X p            ( 8 "@  H X "` h Px      "     ( @8 x       *  48 p   (  " (H X0h      0H@ "    0 @PX`6h "  "  "  " ( 00@px :   0@X`p&&*  00@ p "     0@HPX*`x^^8^PpP] h] ]$PUP v67This module contains Subs called by shortcut menu items.] ]@]` .&$d  >%3No numeric values were found in the selected range. p &A@d|k . . >( B@D  C@  !C@qH (`, B@b !B@b B@H >'3CȗxME (<<<<  0%``(%(%hH  8% X% xNumb %   @    @    %  `0 8 x   j8 x   n8 x p @`(` `  `( P4 %`   P   Q%`(`  `"L , `(% .h $%p 6 `( $ :(  >h  @  < I. < B @%% @ H%`( %'` R`(<%' !  L ( 08@ >X " F(0 8 H X hx     " 08"@2H" "" " 08"@H P `h px" (oo 59qo $ WorksheetG ! (jox 59qPoH@  >%B@o  59qo 59qo >5  9d 9kqxop@]X  >!r !t vG x (tj   rB@Do] 0 rct v 0(tCent 0lectioo !,!B8Cannot hide the sheet because the workbook is protected. p &A@dckChar|(k  (`H|#At least one sheet must be visible. p &A@do8 ! FThe worksheet is protected. p &A@ddX $RangeG ! (jnDk oxSynchronize SheetsWorksheet Tools  >%@%B%B%BB@ar9oToggle PUP Date Picker ToolbarDate && Time Tools  >%@%B%B%BB@Ch oToggle PUP InfoBox ToolbarAuditing Tools  >%@%B%B%BB@ * o8Interactive Hide / Unhide...Workbook Tools  >%@%B%B%BB@RunE oxSort Sheets...Workbook Tools  >%@%B%B%BB@aroExport Charts...Chart && Graphic Tools  >%@%B%B%BB@8o0 Convert Chart To Picture...Chart && Graphic Tools  >%@%B%B%BB@9Zo8Chart Data Labeler...Chart && Graphic Tools  >%@%B%B%BB@0o(xChart Report...Chart && Graphic Tools  >%@%B%B%BB@o](0Activate a Sheet V(L'(  !8P !`,!B ! V!\B@  ! !G (' j ( '(tik   V!\( VB@D.o@]ive Activate a Window V(LnI'(' X  >!rment !L V!\B@ me !L !LG (' j ( '( 9J  V!\( VB@l Scroo (`VScrolo !*Do you really want to print just one cell? h j &$d G|jk0(  !$B@oP]]] !Togg-The active workbook's structure is protected. p &A@d|kxp >($ 0''  Loop through each sheet  !&9N$ Is non-blank cell count zero? !* >%( Sheet- Don't try to delete the last sheetF !8!.  ' B@TToggkPkH L Empty worksheets deleted: '" " p &A@dD. >($ 0o $RangeG|jde]8 P !PlThe active sheet is protected. p &A@dd` ! .9Z'( . 9 ( '(nS . ($/ .!0 ($(B . 2 (09ZUndo Center Across SelectionUndoCenterAcrossSelection >B@4kpoh ] 8P >(9Z 5!B@b.5B@bActiC@bq ( H ($! ($!(0 (9Z >(ctive |8#Cannot undo Center Across Selection p &A@dHXoP A<9Jo0( A<oh A< o  ] ( ]H ! (The active sheet is protected. p &A@d| k .B ! !DG|jP !G .BcG H J %F.Bje Pick nB | k  >(B@T . Quic B!x '(  B7  ($/Chan !^ ($(d .G !^$L (^j .G !^$N (^jj .G !^ >%P (^j ( '(Ch oor anUndo Change CaseUndoChangeCase >B@4 >(aox  ] 8` >( *7 5!B@brt5B@bc...7C@bq ( .. ($! ($!(^ (re... >( 0 | 8  Cannot undo Change Case p &A@dp oh ` Attribute VB_Name = "Module2" Option Explicit Type SaveData Cell As@ Range$Alignment!.Long,Tx  S$End  Pube OldSelecyWps()[Const PUPMENU!l v6 'This m contains Subs called by shortcut du items /QuickC@hart()`Dim = UserSheeWorkswinWind4ow S)= If Apa.Count ()z0 Th enMsgBox "No numeric values were f@d !`the saBrv.", vbI nform, APPNAMEGpExitAQCwIf2?= A@wveBC@IA8ScreenUpd ng@8FalsDBcs.AddWithDCA.#Source :=NH LDoc; Wh@H:=xlEAsObj, :=7.@!CC=6.Visiblˈ0@.B at5$.Par@ԖÆHNLTruA&EToggleT|abkc'1'D@isplayXbook@1Not .P G!FAiBorderf[((&BE!Z"&g"b[<*HeadingsCS GridzE ylinh= : Show e]Dialogs(xl#,).!H=ollbaG)yHo(rizlBar90:eVJVertiu?eRefStylF,"dC O.@}nceb@!xlR1C1LbPA1 Ef5 hŦASa=i\leY&fwO rror Res Nex@FEach w| IPgBtw2.SSt`IMi`nimizae NablSa .ArRe t=UT [:9All52IySXb@s1s G`oTo 0hsHideK $IPAT.ProtdStructuxo{a{Cann@Vh` "zbecauTsew pCed{{{E(KE%HandlerCOm^A :#eAt ldeaonmube vs  %WrapT`1guPtws,@e  _V Bp!foBoo. 9a1RunSynchDNCiComm@ bs(1)ntrpols({ 4To "ronD cExe`Q ePer5 E@= d Y ! &p& TiO # Œx / >CP pap }\  M `Audit" T S%I`nteraPUnK_ _ I͏&&W&T_ "  / ... 'v S* o'o'n2 s` aHR6"3 0 Ch@artAsGraphic()  On Error Resum@e NextdApplication.CommandBars(2)ntrols(PUPMENU""Ch &&  ToR" DExport )s...Execute GoTo 0 End Sub  RunConvertBToPictureyH;jy I4oDataLabelenrlt# D#4Re~37@!02Activate@ASheet2Dim i As Long, shtObject, SaveIndexEUserForm1.Cap = " a B" iA EachBIn B eWorkbook.B &sC If .V@isible-1 Then'gListBox.AddItem"NamsaD  .B 1h= ikai + 1}If!C+=G y/owA8W indow8wi+s c889B=!*>a> h>9@EC%99c &y:97@ 1gL7cSh7HideCE7O]FalsV&ȁ?PrintS`y js*d "k+w  5+g)y/$" s d: " & D(`>%MEs "TruJCe=Across=hKTypew?) "?"\EA:c8 C"3 ts1d"7n 6?5ERZ%Re Old&(P 0 ^άMNR ApplicB.Scr@eenUpdn2gRFa2GaOl:d9=8CRe61 FfD5ih e EachæInGzA4 i).  Tx@.){)c@'`U_"yGd2L}3.~%i + 1#!S%ѩOnU"C A ob">TrueA E/L MWixth @:M1.XParAat 0K! Oc !QSVUB@d(JhAE(Q#LG P "6ic54.t'kEBfCount0v ActiveSheet%N ActiveWindow+ScreenUpdating! Charts ActiveChart  SetSourceDataaSourceGLocation-Where֍xlLocationAsObjectParent ToggleTabs47DisplayWorkbookTabs˝ ToggleBordersǀTypeNameDisplayHeadings/~ ToggleGridNDisplayGridlinesShowNoteJDialogs xlDialogNoteShowToggleHScrollbarsDisplayHorizontalScrollBar<ToggleVScrollbars1DisplayVerticalScrollBarToggleRefStyle)/ReferenceStyle9xlR1C1pxlA1 TileWindowsTwmArrangev ArrangeStyle]xlTiled~] MinimizeAllhHideActiveSheet+ActiveWorkbookProtectStructuref ErrorHandlerOWrapText}ProtectContents ActiveCellRunSynchSheetsPExecuteY RunDatePickerRunInteractiveHideUnhideiRunSortSheetTabsRunExportChartAsGraphicRunChartDataLabelerv,ActivateASheet2Bsht SaveIndexAddItem  ListIndexQActivateAWindow$ HideWindowKPrintSelectionPOvbNo% Intersect1 UsedRangeȉPrintOut.DeleteEmptySheets  HasCodeCountMsgQ DisplayAlerts WorksheetsCountA38CellsCenterAcrossSelection{cZHorizontalAlignmentS@xlCenterAcrossSelectionbOnUndolUndoCenterAcrossSelection NNoCanDo=` MakeUpper ChangeCase MakeLowerN MakeProper WorkRange@5 HasFormula SpecialCells xlConstants xlTextValuesUCase5 LCase:Proper{UndoChangeCase^Workbookk BeforeClose~;_DefaultjFaceIdi WorkbooksBUserFormNOKButton| CancelButtonClickDblClickNumber- RunPUPInfoBox _B_var_On6RunConvertChartToPicturedRunChartReportQ _B_var_IfPresetChartMenusYYReset> _B_var_UCasea _B_var_LCase'ResetTheChartShortcutMenu&% W   Z`Hr0* pHdSCMenusQ(@= l kdDJ J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Autom`ation^mMSForms> MSFErms3DD452EE1-E08F-101A-8-02608C@4D0BB4 DNT\System32\FM20.DLL#Micr@osoft 9 \ Object Library/;C1s00}#0#j0 AB2E8696D-4847FE-B221-040B87@292B4F6DOCUME~1\jwalk\LOCALSTem@p\VBE\DS.8exd`;!.E .`M COfficDay  *\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:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\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 *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library  kdDJC Sheet14u446498f1 Sheet1dBThisWorkbook524464996bThisWorkbookmBModule1554464996b$Module10K-UserForm1564464996bWUserForm1;H Module2574464996bModule2ȗ`3x0`Hh6c K7fJBYYw-NI4Sy^?NЀ3.cNU[CiZi.VA AsRFalse^GoTo_IfResumeThenTrueExcel+VBAWin16~Win32MacVBA6#SCMenus?Sstdole`MSFormsCOfficeuSheet1 _Evaluate ThisWorkbook| Workbook_OpenAddShortCutMenusWorkbook_BeforeCloseCancelRemoveShortCutMenus%Module1bAPPNAMEKpi`mdcb\ CommandBarItemzCommandBarControlPSubitem.PICSheets Pictures><Copyƿ Application* CommandBars ControlsKAddrmsoControlButtonn temporary BeginGroupCaptionxOnAction PasteFace?msoControlPopupl)Deletex UserForm1)OKButton_ClickfUserSel= SheetListBoxzValueKVisibleActivate|MsgBoxRvbCrLf vbQuestionvbYesNovbYesa?Erro vbInformationnWindowsd WindowState| xlMinimized2xlNormalLSheetListBox_DblClick= ReturnBooleaneCancelButton_ClickModule2cSaveDataCellRange  AlignmentITxt OldSelectionʮOldCellsPUPMENU PUPQuickChart DataRangeMP UserSheet WorksheetwinWindow6 SelectionZO@ficB 02DF8D04C-5BFAgB-BDE5@ITAA@420PROGRAM FILES\MICROSOFT O@FFICE\M0SO97 m# 8\.0Lm"DCBS@heet1GBSh@/e1UH2NHB1BB,dB"B+BBThisWorkbookG@T@iWkbok@ r2o@ymmlModule clo}u} 2p K-/!X!b %! Userl@ 8er{a2/;c12(@ 2G2@02o3ȗ"rU~~~~~~~~o c  -6S`  &RunChartDataLabeler Desktop (Minimize All Windows MinimizeAll Tile Windows TileWindows (Activate a Window... ActivateAWindow 4Interactive Hide/Unhide... 0RunInteractiveHideUnhide Document HideActiveSheet 4Toggle Vertical Scroll Bar "ToggleVScrollbars 8Toggle Horizontal Scroll Bar "ToggleHScrollbars "Toggle Grid Lines ToggleGrid :Toggle Row and Column Borders ToggleBorders "Toggle Sheet Tabs ToggleTabs SheetListBox 6Toggle R1C1 Reference Style ToggleRefStyle Hide Window HideWindow Ply $Sort Sheet Tabs... RunSortSheetTabs &Delete Empty Sheets "DeleteEmptySheets &Activate a Sheet... ActivateASheet Hide SheetVBE6.DLL 'Y  ZThe active workbook's structure is protected.F CountAF 4Empty worksheets deleted: 'S ( Activate a Sheet`| F3Dynamic , ,{lFWJOOKButton CancelButtonOKButton_ClickSheetListBox_DblClickq#tCancelButton_Click LName#ҋB `VisibleActivate  is hidden.   Unhide it?fĤIx8< Can't unhide "Activate a WindowFWindowState#=h8+3qG?,2qL 111 '  1 4Toggle PUP InfoBox Toolbar RunPUPInfoBox RunPUPInfoBox 00 !i Q@?RY Auditing Tools l,lCf,p'JdtuO 6Convert Chart to Picture... 0RunConvertCharttoPicture Chart Report... RunChartRepoK*yrU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~j IYn^ JhJ9LyG   1 Sheet1 ThisWorkbookModule1 UserForm1Module2SCMenusF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a 0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Y@0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole iP.E .`M C:\WINNT\System32\FM20.DLLMSForms aa`miGHH! )+O /C:\DOCUME~1\jwalk\LOCALS~1\Temp\VBE\MSForms.exd 9aapL-[DR 2C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice !I PUP v6   , PUPQuickChart ToggleTabs ToggleBorders ToggleGridShowNoteToggleHScrollbarsToggleVScrollbarsToggleRefStyle TileWindows MinimizeAllHideActiveSheetWrapTextRunSynchSheets RunDatePickerRunInteractiveHideUnhideRunSortSheetTabsRunExportChartAsGraphicRunChartDataLabelerActivateASheetActivateAWindow HideWindowPrintSelectionDeleteEmptySheetsCenterAcrossSelectionUndoCenterAcrossSelection MakeUpper MakeLower MakeProper ChangeCaseUndoChangeCase 00 !si lk\LOCALSY <Toggle PUP Date Picker Toolbar $Date && Time ToolsFF F F F FControlsExecute F7 0N{iQFL@ \DFWorkbook Workbook_OpenWorkbook_BeforeClose @ "Power Utility PakAddShortCutMenusRemoveShortCutMenus  Cell Column Row F Print Selection PrintSelection FaceId Toggle Word Wrap WrapText Change CaseTypetemporaryAdd Upper CaseCaption MakeUpperOnAction Lower Case MakeLower Proper Case MakeProper .Center Across Selection *CenterAcrossSelection Quick Chart PUPQuickChart $Synchronize Sheets RunSynchSheets RunDatePicker Chart Floor and Walls Format Axis $Format Data Series Plot Area Series Object/Plot 4Export Chart as Graphic... .RunExportChartAsGraphic *Chart Data Labeler...!rtRunConvertChartToPictureRunChartReport 00 !i @?Y5 K}!m1`RO[N$+{FsE?FʕL%E@3[}I2xPMgM^.pR3 97 ,kD|tT/VV%Gt\R 00 !i `@?aYresetChartMenusmEJmI{ F ^)Je&6DF Worksheet42`@&3ߡE<$r& yKYRCkq&@q'g59DxRP6T^7?LxYZI !: ,FF Count fNo numeric values were found in the selected range.F Worksheet 'O zF pCannot hide the sheet because the workbook is protected. FAt least one sheet must be visible.ProtectContents 6The worksheet is protected. RangeWrapText Worksheet Tools 8Interactive Hide / Unhide... Workbook Tools Sort Sheets... Export Charts... ,Chart && Graphic Tools 6Convert Chart To Picture... TDo you really want to print just one cell?UsedRange <The active sheet is protected. &HorizontalAlignment 8Undo Center Across Selection 2UndoCenterAcrossSelection Parent FCannot undo Center Across SelectionHasFormulaSpecialCells Proper Undo Change Case UndoChangeCase '  '  .Cannot undo Change Case 00 !o_i 811-2174YResetTheChartShortcutMenu 00 !oi @?YA__SRP_1iUserForm1‚‚foCancel ,+ ,a,( ,I-8 .H a7a,X 9h I:a,xO$  }H; R KQDBTahoma(74OKButton'(OK"=uTahoma(Cancel=uTahoma`B_ 5Tahoma, ;8CancelButton'=( 4SheetListBox Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 1920 ClientLeft = 45 ClientTop = 330 CompObjaVBFrame#PROJECTwm PROJECT ClientWidth = 4395 StartUpPosition = 1 'CenterOwner TypeInfoVer = 6 End Sheet1Sheet1ThisWorkbookThisWorkbookModule1Module1UserForm1UserForm1Module2Module2ID="{00000000-0000-0000-0000-000000000000}" Document=Sheet1/&H00000000 Document=ThisWorkbook/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module1 BaseClass=UserForm1 Module=Module2 HelpFile="" Name="SCMenus" HelpContextID="0" VersionCompatible32="393222000" CMG="B1B31D5B215B215F255F25" DPB="1E1CB2A5727FC29CC29C3D64C39C519C84B1E331C0543DB19737CAE0ECFD605D794397E6DCFCF8" GC="8B8927589559955995" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Sheet1=0, 0, 0, 0, C ThisWorkbook=0, 0, 1036, 481, C Module1=0, 0, 0, 0, C UserForm1=0, 0, 0, 0, C, 234, 234, 1300, 845, C Module2=0, 0, 0, 0, C SummaryInformation(DocumentSummaryInformation8(CompObjmOh+'0x hp 4@ X dpPower Utility Pak v6PUP v6 Support FileJ-Walk & Associates Version 6.181999-2005 J-Walk & Associates. All Rights Reserved.John Walkenbach6.0Microsoft Excel@Щ(ij@՜.+,0 X`|  Excel Add-In ToolsJWalk & Associates  Sheet1  Worksheets F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q