аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ#  ўџџџ "9 !ўџџџ$ўџџџ%/'()*+,-.012345678:<;=ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РF€SP'џРАЇ%uIФ€7Workbookџџџџџџџџф_VBA_PROJECT_CUR"@ТѓtIФАЇ%uIФVBAџџџџџџџџ@ТѓtIФа1uIФ ўџџџ!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFўџџџHIJKўџџџMNOPQRSTUVWXYZ[\ўџџџ^_`abcdefghijklmnopqrstuvwxyz{|}~€ сЭЩР‡сАСт\p Andrew Keeler BАaР=гК ThisWorkbookœЏМ=№<xЖ@я7К Sheet1 ThisWorkbook џџџџЃ__SRP_2џџџџџџџџџџџџ   __SRP_3џџџџG5Sheet1 џџџџLr Excess Rows/Columns (BЖ AJK-XSFmt (,З (2A@Dэ !.oџџр–@A@DoџџШ–ЈЗA@DoџџАїЗ–]€ђxђ˜]ђИЩ€ АœэЖFileЖWorksheet Menu Bar %$%&!(."эЖ AJK-XSFmtб, "%*.эЖFileЖChart Menu Bar %$%&!(."эЖ AJK-XSFmtб, "%*.PkџџЈ RА NœЗ (TЗ P(T|џџpkџџhЗ (TЖClear Excess Formats in R! (BЗ P(TЖClear Excess Formats in R! P(Boџџрџџџџиџџџџ)ДAttribute VB_Name = "ThisWorkbook" ŒBasŒ0{00020P819-0C$0046} |GlobalаSpac’False dCreatablPredeclaIdБTru BExposeTemplateDeriv’BustomizD2Option /licit Dim WithEventsР App A€.a‰m€.ДVa€rHelpID€]€-1 PDAH Sub Н_BeforeCld(Cancel-Boolean@) >cb CommandBarButt@on, cm OАbjecT€O\rror Res"u€ѕNexSeZt‚ =С/..‡sD("A%she Menu Р")@ ntrol€FiМleE!‚'Тb@9Р".FindCo (Tag:="AJK-XSFmt"C3cb.De8lets@+ %Chаart ?$l"$@oљFЩ?ID:=3).BeginGrјoupРH˜>жŸ;1уEndAšžOpИen(LL_6"џЧN{Hc(bGJ)Фy…H%PЄOs.Add(Type:=ms–oЄХfbЂn:=` €Index, С…€orary:=a4afUOnAcЂ`І'P" & Ї.ЂЉ& "'!CрurExcessRowsAС`lumnsч Ѓ@ CaУŠ ‚‹р‹Ё С/Co‹џ`g EˆgR ІI2{{пh{џ2џ2џ2џ2nЁ$џ2џџ2 џ2џ2Њ|Ё–ф>8Oс4 €AEl.Ј€ Ж 4v`_ХХaQv`Ш(ByVal w‚П…cVJ_ kDeоa.OДN C'Ÿ7бFbZ(ct` Hi|dea ˜mђ;уS2tPtc OnDnb1љпoonТqOpOpCpIfQIs No thingр"џџџџLџџџџџџџџLџџџџLџџџџLџџџџPџџџџ”џџџџLџџџџLџџџџџџџџPџџџџ` € џџџџ"Ј€А4aР!ј .J :2P&  И а8aр! 0.J@:2p& А и № !€ џџџџ"  (0€ џџџџ"  8@H€ џџџџ"… Pˆ`€px €8a"-Ш4a№"-(P!X h xˆ ˜.<Ј и.<шџџџџ(Эџџx]ђФ0/C–0]ђђА1ЩHэЖFileЖWorksheet Menu Bar %$%&!(."эЖ AJK-XSFmtб, "%*. B@.эЖFileЖChart Menu Bar %$%&!(."эЖ AJK-XSFmtб, "%*.!ј B@.ЗЌб0ЖFileЖWorksheet Menu Bar %$%&%*(2ЗЌб0ЖFileЖChart Menu Bar %$%&%*(2oџџX–Ш]ђђ(эЖFileЖChart Menu Bar %$%&!(."эЌб0 "%*.З (2э 8бl !<б:Зб> "!&%6.Ж' !Ж'!ClearExcessRowsAndColumns (@ЖClear Excess Rows/Columns (BЖ AJK-XSFmt (,З (2эЖFileЖWorksheet Menu Bar %$%&!(."эЌб0 "%*.З (2э 8бl !<б:Зб> "!&%6.Ж' !Ж'!ClearExcessRowsAndColumns (@ЖClea`џ%xџўЇ4џ  §ѓ [tџ_@§ˆtџ54џ!tџ $ Hltџќcћв Хtџ|є_@X є_@X єџ_@X <0џtџ $ Htџ l0џ*#,џ_@X ˆ20џ,џtџєџ_@X <0џtџ $ Htџ l0џ*#,џ_@X ˆ20џ,џtџP(xџ,0џ,џtџpџ\џXџDџ4џ8 44<<!rU€€€ џџџџџџџџH(Й`TџџџџџџџџЁ#$љ`X џџџџџџџџ,9`\џџџџџџџџйЙ,y`` џџџџџџџџйЙ(Й`dџџџџџџџџџџщ Ѓn№ЬдџџџџгKPЯTЯџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0[Ю A пўЪ€ џџџџ€ џџџџ€ џџџџџџџџџџџџxџџџџЌАAttribute VB_Name = "She@et1" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’BustomLizD2 Ьayџ  фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\modProcsџџџџџџџџџџџџ&Ъ_VBA_PROJECTџџџџџџџџџџџџ]Ѕdirџџџџџџџџџџџџ˜?__SRP_0џџџџџџџџџџџџЁGlttCoƒBoodn, a Scen DFO †$shp S0hape‹€zOn Error Resu€ЌNext‚F€ Each „dI3ctiveAgbook.ls7&€$.Г'S@tore w prote#on settingDs ж un„ Фifed.…#ˆ@:=$.E€СEentЦ ƒ Р? DraтwРObj@ Œ BQУ arioЦ CBt.UЦ*"Ÿ€=€IfQ.Number€Ї1004 T|he@Ÿ@NGРMsgBox "'" &6BИ& _?€ ƒ"' isGG with a  pass@XdRcannot b€e checkРP"P, vbIn€formatiШqElsР…У@A ppРеB.StaиtusеСоCРRB O-", PРЇse Wait..Ў.†HAF0ˆ5cРH'Determine‚the ‚Ю c _ain0s bo`ulЦaCG@sta(@ Setm= UnEР(7sed‚o.SpecialC@ells(xтT˜ype`IC ),&YПllЁ gmЁ)7уŠР@' Dcai€ls, tryСУ onlyЈ ПIџ‚ J†ЧhРEnd If!if- fС 4y Рit to х2Јџ__ D_l/H2 ƒ“Рistill@g| eТ "€h–€empt4<> 0} д3 "ЎAdd rрв "$A$ 1"а ur.E ntireи.Dќel`eшA x @§цAN`g vLэ<Я%fФрGoTo x`€ qAmIs Ф PEн= .Areas.sbп+'df0р{tG@dAє’Mrow№&a 1ntВ@dataў `jd'ліk0}Аk ‚Kаiа%i +Ќ 1žP~=."C€("A1").€™АarD -Пў 0Оу†уЄ‡cЧp  @> cђ`Ž=@> Qr >АŠїСf`Pr[}@#HVa€verрed byWрFo$so we don't rem$ov‘YadA`beєhi@$sQ…lF‘‡P„/ˆЌp.Bo€›mRighОt!ZСžЯl я!#ўџџ OYџПCSџrurpr!ХcЇ ђf inrsџ}№$€Яtk ^а)s”(r&1а„":иy‘У&Ii  1J›S''ЁPtQ7he‘ wŒhiр † alр иcauP~•:c t!`€‡innacur|atЙ„@pзK H=c=ЏvЅ" }daќrdУя Еv›ƒ:„ёВ(1,3Р=}1 %—Ц256))oDV3:+Tc’У˜dџаˆ™3vљ,WiБЯ2ЬВџˆ +\л ‡ИFЖDtЕќ "а'ХДеЦ‚`ЬSПсБ5Ћn21ƒ1F$;У!њЏAћХАpВ hi`Ÿbe@ЯcС5KoXf eRнт‡aBХ.Ё/Chr(13) 0Љ6"You mРust sa@Lё+fileБ+kee"p! chрs.|ВБРф €   (€ F8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{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#D:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO9.DLL#Microsoft Office 9.0 Object Library  џџџџџџ[Ю A џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPЯThisWorkbook0941c6bd74џџThisWorkbookџџVЯvџџ Sheet10741c6bd74џџW Sheet1џџTЯQџџmodProcs0841c6bd74џџXmodProcsџџ­Я0-џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№$дАџџџџ/'PЯ­ЯџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ <џџ`<џџl<џџ|џџш џџџџИџџџџџџџџ% \џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџOO„ „^џџџџџџџџx%`„bџџџџџџџџџџ`„dџџџџџџџџџџ`„fџџџџџџџџџџ`„hџџџџџџџџџџ „jџџџџџџџџј% „nџџџџџџџџ%`„pџџџџџџџџџџ`„rџџџџџџџџџџ`„tџџџџџџџџ џџ`„vџџџџџџџџ џџ`„xџџџџџџџџ џџ „zџџџџџџџџА %Њ€Zџџџџџџџџџџџџџџџџџџџџџџџџ џџџџИџџџџџџџџџџџџ џџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ[Ю A пўЪQ€€ џџџџ"€ €0€P€h€ џџџџpx € F  ш ј ( 8 bHА 6И № ј€ џџџџ€ B 8H€ (€ Ј И Ш р€ 0ш  ( 8 P€ <X ˜ Ј Иа рш № ј€   (€ F8 €˜,Ј,и  8€ *@€ .p  ИШи№  N 0` € J  № F€ LX Ј Ша€ и№   (’8аџџџџр] ђИ– ]ђ`ђ€ђ˜ђАђШ]ђрђђ ђ8]ђPђhђ€]ђ˜Щџ jў R!~“ €B@‚џџЈр?Store worksheet protection settings and unprotect if protected. j!„'t j!†'xј j!ˆ'v Ж jB@Š €!ŒЌьœ €B@‚FџџџџІЖ' j!Ж5' is protected with a password and cannot be checked. A@ŽLџџџџdџџHЖ Checking j!Ж, Please Wait... (’Ќ'bЌ'dр ;Determine if the sheet contains both formulas and constantsІэ š j!–%˜ œ j!–%˜$”.nр !If both fails, try constants only €!ŒЌьœ €B@‚э š j!–%˜.nkџџр *If constants fails then set it to formulas €!ŒЌьœ €B@‚э œ j!–%˜.nkџџЈр 6If there is still an error then the worksheet is empty €!ŒЌœ €B@‚ j!–!žЖ$A$1œ n! B@.dџџэА.nkџџkџџр On Error GoTo 0 nАœ n!Ђ!Є'pр ?determine the last column and row that contains data or formulaџ ^ў n!Ђ“ rЌ 'rЖA1 ^%`!І ^!Ј!Є Ќ 'fЖA1 ^%`!Њ ^!Ќ!Є Ќ 'h h d ›G h'dj f b ›G f'bjџЧРр $Determine the area covered by shapesр (so we don't remove shading behind shapesџ zў j!Ў“ z!А!І'f z!А!Њ'h h d ›G h'dj f b ›G f'bjџЧ№ІЖClearing Excess Cells in j!Ж, Please Wait... (’э bЌ Ж: j!Ј!Є j%Ј.n nB@‚р CReset row height which can also cause the lastcell to be innacuratexІ j!И n! (ЖІэЌ dЌ j%КЌЌ j%К j%`!М.nр EReset column width which can also cause the lastcell to be innacurateІ j!Р n!М(ОkџџkџџјрReset protection.Ж x t v jB@Т €B@‚џЧЈЗ (’І  Ж' R!Ж(' has been cleared of excess formatting.Ќ $ФЖ+You must save the file to keep the changes. A@Žoџџјџџџџ џџџџ™ЖAttribute VB_Name = "modProcs" Public mnu As CommandBarButton Sub ClearExcessRowsAndColumns() Dim ar‚Range, DoИ­ c t tIwksWks4Workshee0t, u7^ar Count"Integer, i Jbџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџUKхБa.ыMˆdјžCмџџџџOАе*Ф”MЁВEPG9тџџџџЕЈJp‘бMМгІ‚нЩ џџџџџџџџ0€fgџP3 Excel€+ VBAїтWin16С~Win32MacГВVBA6­# XSFormatCleanerѓ‰stdole“`Officeu ThisWorkbook|у €џ_EvaluateйAppПt ApplicationЅ*Workbook_BeforeCloseВзCancelё˜cbЦ\CommandBarButton9гcmbє~ CommandBars ControlsЬK CommandBar FindControl mTag&иDeleteИxIDІ] BeginGroup‰Ж Workbook_Open›сAddїrmsoControlButtonnѕbefore‰оIndexёП Temporary–лOnAction„ Captionx MenuCaption‡App_WorkbookActivateПВwb…_WorkbookkApp_WorkbookDeactivateH)HideMenu„Ocb1L}ActiveWorkbookЂVisibleЖг Sheet1ш modProcsћЌ(mnuІДЌ(ClearExcessRowsAndColumns^arŒ\Rangeк ricZtrK_tc<_wksWksв= WorksheetСўurp_arCountei` blProtCont д blProtScenhэblProtDOЛeshpйгShapeТ WorksheetsМјErroŠClearуЭProtectContentsеЫProtectDrawingObjectsвєProtectScenarios‰' Unprotect?NumberЃ-MsgBox—R vbInformationВn StatusBarЪœUnionљВ UsedRangeШ‰ SpecialCellsЅОxlCellTypeConstantsWxlCellTypeFormulas#AddressЇХ EntireRowїAreasќKCount0vRow‰ЯRowsЁUColumn iColumnsp9Shapesћ<BottomRightCellFдdcь\ Dependents2м RowHeightгStandardHeight` Cells EntireColumnє• ColumnWidth›п StandardWidthЩКProtectзfChrK~ €џBeforeClose~;€џWorkbookActivateыЗ€џWorkbookDeactivateЛhItemзzџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ џџџџџџW Y џџџџџџџџџџџџџџџџџџ 6@;В€0* pH‚dфXSFormatCleanerQH@  =­ | €[Ю A J< 9stdole>stdoleP f%\*\G{00020А430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# AuФtoЫion/AƒDOffic„DOA€>fic‚D €…€D2DF8D04C-5BFA-101B-BHDE5€DAA€B4€2…DD:\PROGRAM FILES\MICROSOFT OF FICE\MSO9.DLL#Microsoft ƒF 9.0 Object Li`brary€C‚Ю‚PЯ ThisWorkbookG€ThcsWAЋrkb€oU€Ž2к РHB1tv,B,Т!VЯ*"B+BxSh eet1GТS@#‚e€Tt1HІ2NЯQЯTЬРmodPro`csGAР;dPrРcs›@Щ2вЯ-ЯШ­Я!РУ:С“K*yџџџџrU€€€~~~~~~~j ЩЩсгЈЗ,WD f€`Ю  фџџџџƒŠa yq ‰Сщ!Y@ё џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1ё XSFormatCleaner ThisWorkbookSheet1modProcsяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Qџџџџ yс`РF4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Iџџџџqщp0РFC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole YџџџџЩ€Lај-њ[НхЊDоR 1D:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO9.DLLOffice aџџџџ‰љкРFЪ[Вt;K™­VŠљl7ЁРFЇBZ… #OМ™сЋИ2DРFWorkbookDРFAppWorkbook_BeforeClose Workbook_OpenApp_WorkbookActivateApp_WorkbookDeactivate MenuCaption H88 File before $Worksheet Menu BarеРF РF РF РFCommandBar AJK-XSFmtTagFindControl РF Chart Menu BarРFйРFA i џџџџ РF 0Clear Excess Formats in A   IDControlsTypeTemporaryAdd ' 6'!ClearExcessRowsAndColumns 2Clear Excess Rows/ColumnsTrU€€€€~~~y џџџџџџџџџџџџ џџџџџџџџ   QCancel i(wbHideMenu_ThisWorkbookThisWorkbookSheet1Sheet1modP__SRP_1 џџџџУжPROJECTwmџџџџџџџџџџџџЧYPROJECT џџџџЩуSummaryInformation(џџџџџџџџбrocsmodProcsID="{9DB3729B-0EBC-11D3-98F7-00C04F5C2854}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=modProcs Name="XSFormatCleaner" HelpContextID="0" VersionCompatible32="393222000" CMG="D8DA03B107B107B107B107" DPB="A5A77E4F861D871D871D" GC="7270A9867787778788" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=-5, 43, 989, 692, C Sheet1=110, 145, 1122, 561, C modProcs=57, 34, 837, 553, C ўџр…ŸђљOhЋ‘+'Гй0` PX|”( @ LXфExcess Format Cleaner 1.1Andrew KeelertRemoves excess formatting outside of the data range. This can reduce file size, helpful with converted Lotus files.Andrew KeelerMicrosoft Excel@€\АIѓЂО@€\ЁtIФDocumentSummaryInformation8џџџџџџџџџџџџиќCompObjџџџџџџџџџџџџмmџџџџџџџџџџџџџџџџџџџџџџџџўџеЭеœ.“—+,љЎ0Ь PXl t|„Œ ” Їф MicrosoftG Sheet1  Worksheetsўџ џџџџ РF!Microsoft Office Excel WorksheetBiff8Excel.Sheet.8є9Вq