ࡱ> {1Tahoma +Step 2{1Tahoma(AboutaO uTimes New Roman'1)*+,-./0 DcmdFinishu+Completes the wizard@ DcmdNext5%Display the next pageSD LcmdBackDisplay the previous pageD ;@cmdCanceluCancels the wizardag4 imgFlowChartBackground, #9mpgWizardPage; 024 shpChartPathCV{"P 2(!shpMap4To skip to this step, click here.eP 2(!shpMap0OTo skip to this step, click here.eP 2(!shpMap2" To skip to this step, click here.eP 2(!shpMap1"qTo skip to this step, click here.eP 2( !shpMap3"To skip to this ɀ\pHumberto Barreto Ba= ThisWorkbook=K$<X@"1Arial1Arial1Arial1Arial1 Arial1Arial1Arial1:Calibri1 :Calibri1:Calibri14:Calibri1 :Calibri1:Calibri1:Calibri1,8:Calibri18:Calibri18:Calibri1>:Calibri14:Calibri1<:Calibri1?:Calibri1h8:Cambria1:Calibri1 :Calibri"$"#,##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\);_(* "-"??_);_(@_)                                                                      ff + ) , *     P  P         `            a>  ||?}A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef ;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L ;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A}  00\);_(*23;_(@_) }A}! 00\);_(*23 ;_(@_) }A}" 00\);_(*;_(@_) }A}# 00\);_(*;_(@_) }A}$ 00\);_(*;_(@_) }A}% 00\);_(*;_(@_) }A}& 00\);_(*;_(@_) }A}' 00\);_(* ;_(@_) }A}( 00\);_(*;_(@_) }}) }00\);_(*;_(@_)    }}* 00\);_(*;_(@_) ??? ??? ??? ???}-}/ 00\);_(*}A}0 a00\);_(*;_(@_) }A}1 00\);_(*;_(@_) }A}2 00\);_(*?;_(@_) }A}3 00\);_(*23;_(@_) }-}4 00\);_(*}}6 ??v00\);_(*̙;_(@_)    }A}7 }00\);_(*;_(@_) }A}8 e00\);_(*;_(@_) }x}900\);_(*;_(  }}: ???00\);_(*;_(??? ???  ??? ???}-}< 00\);_(*}U}= 00\);_(*;_( }-}> 00\);_(* 20% - Accent1M 20% - Accent1 ef % 20% - Accent2M" 20% - Accent2 ef % 20% - Accent3M& 20% - Accent3 ef % 20% - Accent4M* 20% - Accent4 ef % 20% - Accent5M. 20% - Accent5 ef % 20% - Accent6M2 20% - Accent6  ef % 40% - Accent1M 40% - Accent1 L % 40% - Accent2M# 40% - Accent2 L湸 % 40% - Accent3M' 40% - Accent3 L % 40% - Accent4M+ 40% - Accent4 L % 40% - Accent5M/ 40% - Accent5 L % 40% - Accent6M3 40% - Accent6  Lմ % 60% - Accent1M 60% - Accent1 23 % 60% - Accent2M$ 60% - Accent2 23ٗ % 60% - Accent3M( 60% - Accent3 23֚ % 60% - Accent4M, 60% - Accent4 23 % 60% - Accent5M0 60% - Accent5 23 %! 60% - Accent6M4 60% - Accent6  23 % "Accent1AAccent1 O % #Accent2A!Accent2 PM % $Accent3A%Accent3 Y % %Accent4A)Accent4 d % &Accent5A-Accent5 K % 'Accent6A1Accent6  F %(Bad9Bad  %) Calculation Calculation  }% * Check Cell Check Cell  %????????? ???+ Comma,( Comma [0]-&Currency.. Currency [0]/Explanatory TextG5Explanatory Text % 0Good;Good  a%1 Heading 1G Heading 1 I}%O2 Heading 2G Heading 2 I}%?3 Heading 3G Heading 3 I}%234 Heading 49 Heading 4 I}%5( Hyperlink 6InputuInput ̙ ??v% 7 Linked CellK Linked Cell }% 8NeutralANeutral  e%"Normal 9Noteb Note   :OutputwOutput  ???%????????? ???;$Percent <Title1Title I}% =TotalMTotal %OO> Warning Text? Warning Text %XTableStyleMedium9PivotStyleLight16`*Sheet1ccVB4c =_MA ɀ +  dMbP?_*+%&?'?(?)?"4c??t&U>@7 Sheet2ggD ThisWorkbook ^ __SRP_22t__SRP_3 8Sheet2;  !"#$%&'()*+,-./01345679:<=>?@ABCDEFGHIJLNOPRSTUVWXYZ[\]^_`abcdefhijklmnopqrstuvxyz{|}~  #<+A0weJdF#d[lDNmIx#d[lDNmI+A0weJdME(SLSS6"N0{00020819-0000-0000-C000-000000000046}@ @` ``%@ %0 %@@"˄M$*\Rffff*2n4d9f61364" "0 8 "@ 2H    D h$p  \  0 Put the Wizard menu item inPA@o@@+ Delete the new menu command from the Tools menu.entHhcheck languageLeft] !"$W 330Thanks to John Talyor0 & %$Tools'=it's not English, try to get the word for Tools from the userdThe language of this installation of Excel does not appear to be EnglishUS. Please enter the word that Excel is using for Tools on the main menu across the top of the screen. For example, in Spanish, it is Herramientas.Get the word for TOOLS Herramientas %('k`dXTools'k@Comp Statics . . .Wizard Worksheet Menu Bar %*%,%,%,B@.oXAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Sub _AddinInstall() ' Put the Wrd menu item inqdd M I 0End * Q.Uni/ '` Dele3new1comma!$from@To`ols C. On Error ResuNext'check languag@RDim my As Sng If Left(Application .Oper@ngSys@4, 1)W" The<'Thanks to John Talyor@Internal(xlNonEnglishFuncAs) <> aD6)<'it's not , tryIgefwo@ffGA8Luse&E K*putBox("8L ofy]isyBB2Excel doe$appearA#be(US. P4leeAe q)tha1Bu sing .on!B mainacrosZtop$e scree n. Fx @ B D8 Fx H J L8  Nx  P  R  T8  Vx  X  \  `8 ibX id  x %   %*4 *8( 8*:P X*<x xj> j@jD 888 8 ( xx x 8 xx 8x8 8x P x  x = "˄M   (08@ "H`P :p       8 H h $p       l h  x  "   . "   ( HXp  (H8 P`( 8P `p x  "    &( 0 @@   X0 0P   8 Xj`   0 @ X Vp Z ( $8 ` x       ( N@ \  $ ( @  X h x .D  @00p0  , " 68 pF & 8X` hx  <`2p& $$482p>> ( 0 8 H ,` @  " <!H!8X!&!*! "! ": " `""6""&"*" # "8# `#<p# ##@#$2 $FX$ $ $@$>%JH%J% 0%& & 0& :H&,& &&&"' 00'D`'D''L( X( $h(( (((( (( ) )() 0)8)) ")) ) * (*8*P* "h***  .** * + +  + 8+ H+ X+ `+ p++++ "++++ "++++ "+++, ",, ,0, "8,@,H,X, "`,h,p,, ",,,, ",,,, ",,,, "--- - "(-0-@- "H-P-h- "p-x-- "--- "--- "--.. " .(.8. "@.H.X. "`.h.x. " ..... .]  ]  ] ( ] P ] x ]  ] ]  ] TA likely cause of this problem is that Visual Basic cannot find the SOLVER.XLA file. $L $LThe Wizard assumes this file is located in C:\Program Files\Microsoft Office\Office\Library\Solver. If SOLVER.XLA is located elsewhere, you must provide this information by executing Tools: References from within Visual Basic.A@JA@No 8 Rla R'T R 2!V(Xtkox R :\ R'T R 2!V(Xokxop 2A@rharoP^@ B$`B@b 2A@ron |^The Wizard was unable to complete the Comparative Statics Analysis. Please try again, double checking to make sure you provide all of the information required.A@JileoX8^H 2B@ftem Get the Obj FnmVClick on the one cell that contains the objective function (or equilibrium condition).2Objective Function (or Equilibrium Condition) Cell %(.4 4!j 2!h(X 2!h(l 2!n(l Get the Endo var=Click on the cell(s) that contain the endogenous variable(s). $L $L0Use the CTRL key to select non contiguous cells.Endogenous Variables Cells %(.: :!j 2!p(X 2!p(l 2!r(lWarning formulasep-2003 only warned once F t :!v!x z :!|!x t z$:!~$=,You have chosen as an endogenous variable a cell with a formula. This will not affect the Comparative Statics Wizard, but if you include cells with formulas as a Changing Cell in the Solver dialog box, Solver will DESTROY the formula (replacing it with a number). Be careful when you get to Solver. $L $L"This message will not be repeated.Cell Formula Warning A@J'Fkk Get my Exo var<Click on the cell(s) that contain the exogenous variable(s). $L $L0Use the CTRL key to select non contiguous cells.Exogenous Variables Cells %(.8 8!j 2!(X 2!(l 2!(l Show the verify label 2!(l^x 2B@o`x B@o@ 2B@f. Make sure user filled in three previous boxes 2!h!l 2!p!l 2!!l Do nothing b/c all's fined3 Alert user he/she did not fill in Step 1 correctlyYou did not completely fill in the Step 1 information. The Wizard cannot do a Comparative Statics Analysis without all three pieces of information. Please make sure you provide the Objective Function, Endogenous, and Exogenous Variable information.A@J Take user back to Step 1A@P go to the endk^2 Show the Solver Parameters dialog so the user can find the initial solutionA@ Unhide the text box and label 2!(l 2!(l Return to the Wizard 2B@|^bSolver cannot be accessed for some reason. Click the Solver Help button for further instructions.A@J 2!(l 2B@op^` 2B@f( Get whether equilibrium or optimization solver_typ %=3'Dd'Dk Get Shock Var infouClick on the ONE cell that contains the exogenous variable that will be changed in this comparative statics exercise. $L $L4All other exogenous variables will be held constant.Selecting the SHOCK Variable %(.< <!j 2!(X <!X 2!(X 2!(l 2!(l 2!(l 2!(l 2!(l Get Change infoKType in a number that indicates the amount of change in the shock variable. $L $L;You may use decimal values such as 0.1 or 0.01 if you wish.&Amount of Change in the Shock Variable %('> >G^Fj > 2!(X 2!(l 2!(l Get Num Shock info?Type in a positive integer that indicates the number of shocks. $L $LTRemember, at least 3 points are needed to determine if a relationship is non-linear.Number of Shocks %('@ @G^Fj @ Are you sure you want to do @& shocks? This could take a long time.   WARNING! Possible input error.$J'  G^jk @ 2!(X 2!(l 2!(l Show verify label 2!(l 2B@| ^ 2B@oh 8 Speed up macro ( Define variables]x]]] Get the name of the activesheet] !': Get the variable names and if not named, use cell address]]]@]x]]]]8 R Change the Solver created names to ensure they are not read as user-defined nameszzzzz_solver_opt solver_opt %(zzzzz_solver_adj solver_adj %( B@ Get the user-defined name$4!!'1 Objective Function or equilibrium condition cellQ If the name doesn't exist (error 1004) or it's not visible (solver created name) !$4!!lGObj Fn (or Eq Cond) ($4!j)'j B@ Exogenous variables  8!  !  ' @H !! + O If the name doesn't exist (error 1004) or is not visible (solver created name) ! !!lGExoVar  ( !j) +j B@  Get the address for later use @h !j +   endogenous variables  :!  !  ' @ !! + G If the name doesn't exist (error 1004) or is not visible (solver name) ! !!lGEndoVar  ( !j) +j B@  Get the address for later use @ !j +   Shock Var$<!!'' If the name doesn't exist (error 1004) !G Shock Var ($<!j)'j B@9 Change the Solver created names BACK so Solver will work solver_optzzzzz_solver_opt %( solver_adjzzzzz_solver_adj %( B@% Remaining errors go to error handlerOn Error GoTo ErrorHandler:0 Check to see if a CS sheet is already there and determine CS sheet number t `!x t$`!$CS t$`!$$ Get the number of this CS sheet t$`!$'   !%'dk t !.CS  'B B ( Put down informationComparative Statics Analysis B$`%(X@The following exogenous variables comprised the INITIAL problem: B$`%(XExogenous Variable B$`%(XValue B$`%(X Format cells B$`%!( B$`%!( $$ B$`%6($$ B$`%6(  $$ B$`%6%(  $$ B$`%6%( ]]  '    $  B$`%(X  $ $`%6!X  B$`%(X  Do the comparative statics5 Put down variable description, names and first value  'Exogenous Shock Variable  B$`%(X    B$`%(X <!X   B$`%(X If an optimization problem DOptimal Objective Function  B$`%(X If an equilibrium problemdxEquilibrium Condition  B$`%(Xk8    B$`%(X 4!X   B$`%(X t   If an optimization problem DOptimal Endogenous Variable  t B$`%(X If an equilibrium problemd(Equilibrium Endogenous Variable  t B$`%(Xk t $  t B$`%(X t $ $`%6!X  t B$`%(X t Format cells  $  t $ B$`%6( $  t $ B$`%6(   $  t $ B$`%6%(   $  t $ B$`%6%( ) Get the initial exogenous variable value] <!X' t @4 Increment the value of the shock exogenous variable  t > <!j $`%6(X Solve the new problem $`B@b  !solverok B@  !SolverSolve B@) Put down the new values of the variables <!j $`%6!X  t  B$`%(X 4!j $`%6!X  t  B$`%(X z  z $ $`%6!X  t z B$`%(X z Make the progress bar visible 2!(l Update the Progress Bar @ 2!( t 2!(XA@ t 2!(l Reset (|^You have not provided all of the necessary information or something else is worng. Please retrace your steps or click Cancel to exit this Wizard.A@Jo  25V!X'R R$"9 "deselect current flow chart marker ( $ T7,(& * T7,(,select new flow chart marker . $ R7,(& * R7,(,( This enables you to move back and forth RKT50(254(2KKKT50(254(2KT50(254(2nxqpoh8 R'T 2!V(Xo@x R'T 2!V(Xo R'T 2!V(Xo R'T 2!V(Xo8 R'T 2!V(Xox R'T 2!V(Xox R'T 2!V(XoP R'T 2!V(Xo(8 R'T 2!V(Xox R'T 2!V(Xo 2!!X'>o 2!p!X.:o8 2!!X.8ohx 2!!X'@oH 2!h!X$6.4o  2!!X$6.< <!X 2!(Xo 8 2!(lo x 2!Z(lo  2!^(lo  d fANkX oP H QAttribute VB_Name = "WizForm" Basx0{7B223D94-A0DE-4ADC-B1B0-5510A6C16B15}{9406F0F6-6748-408F-9765-9DE1816D69D7} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD Public myObjFn As RangA HExo nd ShockVarCh- Do;2(NumsIntegerNS 0^ &?aimvious=  .mpgC..Valuw1j - 1If!Next 4+B_ 1^#UnloadQAiFinishOn Error GoToC`Handl{! Sheets(mySB|).Activ@Z AExit! :thf@was untPo coetjCar@Wvq tcnalyhsis`bP {try again, d che ckA\ make surec "call ercrequi ^[`m#Button1((VHre ' Getse i` F`S%=0 App on@.Input(" A#one cecont e obje!4e fun- (;Aliu"m,ndi!).", "$F)&E!%Co% C, %8 EtxtFn69T .Address isi`YurLabel.3Z* 'po vahC??x(s)`$ResgenHi)gp``"UQ(*TRL key p'sel0 nigu!s2a 4x2ssC>.QxtsA.0lw~Dx q10ysep-2003'-@uw@zyo` ]A{= TS t I1Pg Rows.CountD1J<Col8umnjE@Mid I(I, J).mP, 1 )p"="<[$@mpt:="Y@shaFchosen | an  e a7qe`HTwi8a\ffq1:Ks,B if !{incluz!wsP@L7a dialog box, $DESTROY, (recYt number)p BE`ful n gqJoo00"s}bLe ed!/TpitleR  &0/Us:=vbI'!1TDT= 3Eql@# S: u0[my EFFF#F CexoFFFFF&FO\FxoyFoF`FQ_F~.[w)Pify HaVfyEcQv|0'|`About ^P4%W~M5PralpSpthhree`e;eqPM5gt A 8*`/).HQ'8 Do j0D/cR p's n`E#4' AРt !R he/s+didB 1IS8tep 1 correctly  MsgBox "You d@id notmpletely fill in the Sinformatio n. T0Wizard canzdo a ComparHvncs Analysis with out a[three piec`es ofk ]Please make sure yprovideObjieFunc, Endogenous, and Ex Varia(ble2"' T2user back toxcmdB _Clickgoend GoTo Return F If On ErrXor HOler' ShowolvBPmrsaloxg s7Q  'Ѐp@initiallu MainS%D og2UnhOtext b@AIlabel @.Fw.txt{@2.VisiL= Truelbl1A$>E{ :G;Gxit SubA'D.:0Ħ1 ėbe ac@sed btMV?.^.PriHvatubmTB5C() HgjGet whe+equilibrium optimyIf A1veSheet.Nam es("sB~_typ") = "8=3"u R8IfOhFals;E2Y' !!`ekbj S my= App f 3Inpurt("4@2 @ONE ceant Ws8efwvewthw AchangAB@cstexercise." & Chr(13)*"A`o- G` helon nt.", "SelngN0HOCKf, %8?% 6Y10Ap`FcA("AFwfa, o aM&[?RQuKt!a loJimP, vbYesNo +QueseMWARNING! Pos"i[ erP ."q @ vbpn)gcH*x*6***++wB `ify VerPU 1 ndP88k!}/d#8'5S"pp* up`crHo I4ScnUpd*`= r&1Def-Ls Dim 1e`` As Is6Max"m IJ5@:a1zas1Strine a] 1F1 n<`Vd,RY=auFn? h()Ŀc{@\Cmy}o rȥResuNc\fB @$ϐqPDenE"yRot d pm-d% )3")2 `"z=_adjS7rr.~Cp]! h= 0(1, 1 ? Q| coQB/Oq)' doesn't exist (R@ 1004)qit's2vK(W*c.#= 4Or eH8fmy"B) Fn (Eqnd) ({" & myObjFn(1, 1).Address")" Err.Clear ' Exogenous variables For Each A InAH.Area4 D b 򐤍 "#2r' ChangeSϣs BAC K so will work ActiveSheets(" z_ì_optl")"""_adjOP ' Remaining "s go( to dlbe@'OnAR`Go`ӠSorHanŁ:CChe; see if a CS s! `$aldya%re& AdemineGnbI`R$s.Count#`u.WeighMed8ium.Q!-artRow As teg7q;Ao (= 5$nd@C=_"R"gz*xos7 - 4B+=Q)bdq/dHw 1' DpeQ9?st?EE descripQ,sc firvDL L2/!43SIw>V>2P>1SBϿ! ckD#AW`oan imizonLb6IfO7O Kal :e i"Mequilibr2/i/'/'RECondiqmg(myStartRow + 1, 2).Value = myObjFnName Sheetsring).Celll<|2| @ For I3 ToEndoVarNumbeBrz2 ' If an optimization problem!TrueIfO "= ` Then&, I"&al Kgenous iNia;"(Lequilibrium LElsb=E(? $npmy,(I -'$@u6).RangeAddressDDX Next@ I ' mat c , 1), @31)).HorizontalAlignmentxlCerWrapTA4Borders(xlEdgeBottom).LineStyl49inu@A^WeighC)M$ed^ 8Get the initi gexogHvarg v P Dim~IEx~As Douk myShockpGn1C`bscYtn8cre> ofs o`Z$[+ *` Ch!bSolvbenewkiA@ctivatdA pplic.R un rFilen & "!s! rokD`3",Put downF")sE);.GtIaxc9rň4. + 2 H .;c AJ[?JHiJ"CJc' M,akL g bar visik!Wiz!.myProbBar.VC0sUpd' Max@my<9` DoEvO0Z$Ubelb\l0Done CHReset /S0@en" p Exi t SubqErrorHandler: MsgBox "You ha:nota:vided al"l/necmary@Ofor`lщp@somethe@ is worng. Please retrace your step4r c=k Canp8 toI0 ps ard.

s!&$mo,bIдd *th'S}#C)!0#;cmdA.EnA2.1= UbPp3!/Hm4__2_ $;cWiHi<@NMap0_C@;:0*_?]?<`RC1&7@G|1 2nt?S3mQ`)4l)shp""W^eܱ = 0 End Sub Privatep shpMap1_Click() iPreviousPageiCurrentBWizForm.mpgard4.VaTlu^12Kn2Un3K7374K74 7txtChange_Afte0rUpdmy k j1 @oMSet my/AA`xxo xoNumShocks=ObjFn?R\(HV@DQ@VB-VarAddres/Y  "9 myC?Step2_En@JIe lbl1.Visibl|False42$ka&53UserA_QueryClose(Cancel As I ger, ModeIf (= vb ControlMenu) ThenCall cmd  CIf*' onomics DePauw University Greencastle, IN 46135 E-mail: hbarreto@depauw.edu phone: (765) 658-45314 This project was funded in part by a generous grant6 from the Lilly Endowment to Wabash College to support# the use of technology in education Lilly Endowment, Inc. 2801 North Meridian Street Indianapolis, IN 46208 Tel: 317-924-5471 Fax: 317-926-4431U This version is an important upgrade because it does not need a reference to Solver.H I struggled mightily for years with programmatically adding a reference1 Application.Run removes this problem completely. A good source is, http://peltiertech.com/Excel/SolverVBA.html] @] h] used for visited page's shape]$used for active page]$ j)prefix to the box names in the flow chart]$shpMaph+prefix to tstep, click here.eP !2@ !lblMap0OTo skip to this step, click here.eP %2< !lblMap4To skip to this step, click here.eP &2< !lblMap3To skip to this step, click here.eP '2<!lblMap2 To skip to this step, click here.eP (2<!lblMap1qTo skip to this step, click here.eH ;@CommandButton10Cancels the wizahe label names in the flow chart]$lblMapName of Solver add-in file]  shows wizardcaption strings for WizForm(Comparative Statics Wizard - Step 1 of 4+"(Comparative Statics Wizard - Step 2 of 4+"(Comparative Statics Wizard - Step 3 of 4+"(Comparative Statics Wizard - Step 4 of 4+"3Comparative Statics Wizard - Steps 1-4 are complete+"'R 25V(X R$"? $xME(   "     * " @ X p      D @$Hpx , 2<H J ( <0p x 2 >  08  8@xL` V0 B  8 0@NH     0f   2  Z Z` H , N8 4 P : P &X    4     , H $P x    * , ( 8 @ "` 4 @ 0 0 @ "H p 2 > 0 8 H "P Nx "    ( @H      @  0 8 X 0` * < $ (( P h     V @! 0X! *! <! 0! ,(" X" @p" " " " # # (# 0# 8# @# H# bX# `#  $ 0$ @$ P$ X$ Zp$ $ $ $ % N % (p% ,% :% & & (& 8& @& $X& & & & 4& & & ' ' ( ( p) DOCUMENTATION. This add-in does comparative statics analysisX User Input<0 It is assumed that the user has an optimization4 or equilibrium problem that is organized into threeTh parts:/ 1) Objective function or equilibrium condition 2) Endogenous variable(s) 3) Exogenous variables(s) ORIGINALLY WRITTEN IN 1998 AUTHOR Humberto Barreto Dept.of Ec9 C@qo P Major revision in 2010 abandons use of FileSearch to add Solver as a reference.E This is no longer needed because application.Run simply runs Solver.- No longer need to Trust Access to VB project' initializeSolver.xlam!SolverMain B@2 Excel 2010 version  Solver.xlam'|kSolver.xlam!Main B@, Excel 2007 version  Solver.xlam'|kSolver.xla!Main B@+ Excel 2003 version  Solver.xlam'|kg I forget which ones these are -- some are old Mac Excel versions, I leave them here for no good reasonSolver.xla!Do_Main B@  Solver.xla'|kSolver.xla!Auto_Open B@  Solver.xla'|pkh Solver!Main B@ Solver'| k7if you get this far, Solver MainDialog was not accessedzSomething is wrong. This macro cannot access the Solver Main routine. Launch Visual Basic and check Sub MainSolverDialog.A@JoH` define variables]]'n$ Make sure the Tools menu is visibleWorksheet Menu Bar$*(lcheck languageadded 11/18/2003modified 5/8/2005] !"$WThanks to John Talyor & %$Tools'=it's not English, try to get the word for Tools from the userdThe language of this installation of Excel does not appear to be EnglishUS. Please enter the word that Excel is using for Tools on the main menu across the top of the screen. For example, in Spanish, it is Herramientas.Get the word for TOOLS Herramientas %('kxdpTools'kX Worksheet Menu Bar$*%,(l, Check to see if there is a Wizard menu item'n z Worksheet Menu Bar$*%,!,!x f z Worksheet Menu Bar$*%,%,! &Wizard z Worksheet Menu Bar$*%,%,! Wi&zardCMeans the Wizard menu item is already there, make WizardIsHere Trueson. 'nd6Means the Wizard menu item is not there, so do nothinglkx zp, Add the Wizard menu item if it is not there equil noptimi] vl Worksheet Menu Bar$*%,!,%.r r&Wizard9 q k 2 Check to see if there is a Comp Statics menu item'p zWizard Worksheet Menu Bar$*%,%,!,!x$L zWizard Worksheet Menu Bar$*%,%,%,! &Comp Statics . . .OMeans the Comp Statics menu item is already there, make Comp StaticsIsHere True!'pdX <Means the Comp Statics menu item is not there, so do nothing Changk zn a nu2 Add the Comp Statics menu item if it is not there p $L]  |lWizard Worksheet Menu Bar$*%,%,!,%.xAm xSetup.ShowWizard9~&Comp Statics . . .9 '>q k * Message to the user when add-in is loaded<You have successfully loaded the Comparative Statics Wizard. $L $LIn Excel 2007 or greater, click Comp Statics, after clicking the Wizard in the Add-Ins tab. In Excel 2003 or earlier, access the Comparative Statics Wizard by executing  : Wizard: Comp Statics . . . $Comparative Statics Wizard Installed$J'oh  Based on Jon Peltierime., http://peltiertech.com/Excel/SolverVBA.html' Accessed 17 May 2010 S Decided not to use it because I need to use FileSearch to find name of Solver file2B@S Not worth the hassle just to avoid not having torun Solver once before using CSWizB Solver should be run first to confirm initial solution is optimal%Function CheckSolverIntl() As BooleanH' Adjusted for Application.Run() to avoid Reference problems with Solver.' Adjusted for international versions of Excel8 J' Peltier Technical Services, Inc., Copyright 2008. All rights reserved.3' Returns True if Solver can be used, False if not.zzzzDim bSolverInstalled As BooleanDim bAddInFound As BooleanDim iAddIn As Long.' Find Solver file NEED TO USE FILESEARCH CODEditi%Const sAddIn As String = "solver.xla"olve' Assume true unless otherwise!CheckSolverIntl = True Eq On Error Resume Next'#' check whether Solver is installed&bSolverInstalled = IsInstalled(sAddIn) Err.ClearIf bSolverInstalled Then ' uninstall temporarily exist- bAddInFound = AddInInstall(sAddIn, False))9 ' check whether Solver is installed (should be false)* bSolverInstalled = IsInstalled(sAddIn)End Ifhe aIf Not bSolverInstalled Then ' (re)install Solver, bAddInFound = AddInInstall(sAddIn, True)s8 ' check whether Solver is installed (should be true)* bSolverInstalled = IsInstalled(sAddIn)End Ife naIf Not bSolverInstalled Thensible G MsgBox "Solver not found. This workbook will not work.", vbCritical  CheckSolverIntl = FalseB@End If GIf CheckSolverIntl Then ' initialize Solver9 Application.Run "Solver.xla!Solver.Solver2.Auto_open"End If'On Error GoTo 0sn End Function04)9Function IsInstalled(sAddInFileName As String) As BooleanDim iAddIn As LongIsInstalled = FalseK so S*For iAddIn = 1 To Application.AddIns.Count# With Application.AddIns(iAddIn) %6 If LCase$(.Name) = LCase$(sAddInFileName) Then If .Installed Then" IsInstalled = True End If Exit For End If End WithNext End FunctionOFunction AddInInstall(sAddInFileName As String, bInstall As Boolean) As BooleanDim iAddIn As Long*For iAddIn = 1 To Application.AddIns.Count# With Application.AddIns(iAddIn)6 If LCase$(.Name) = LCase$(sAddInFileName) Then* If .Installed <> bInstall Then% .Installed = bInstall End If9 AddInInstall = True ' True = add-in is listed Exit For End If End WithNext End Function Sub test()\For I = 10 To Application.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls.CountZMsgBox Application.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls(I).CaptionMsgBox INextEnd SubSub DeleteItem()SApplication.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls(16).DeleteEnd SubSub testname()For I = 1 To Names.CountHIf Names(I).Visible = True And InStr(1, Names(I).RefersTo, "$") > 0 Then!Cells(I, 8).Value = Names(I).Name%Cells(I, 9).Value = Names(I).RefersTo3Cells(I, 10).Value = Names(I).RefersToRange.AddressEnd IfNext IEnd Sub Sub dirname()MsgBox Application.StartupPathEnd Sub Sub testme().MsgBox ActiveSheet.Names("solver_opt").VisibleEnd Sub Sub testmsg()MsgBox prompt:="You have chosen as an endogenous variable a cell with a formula. This will not affect the Comparative Statics Wizard, but if you include cells with formulas as a Changing Cell in the Solver dialog box, Solver will DESTROY the formula (replacing it with a number). Be careful when you get to Solver." & Chr(13) & Chr(13) & "This message will not be repeated.", Title:="Cell Formula Warning", Buttons:=vbInformationEnd SubO to Solver. Users would not trust access to VB project and sometimes adding the reference behaved erratically.Attribute VB_Name = "Setup" ' DOCUMENTATION@This add-in does comparativPe stc>nalysis dUser InputIt ssumed thate u$ha; optiHmizKon2or equilibrium pr`oblem;Ko@rganizMintoree6ts: 1) Objecfu"non Vco nditi92) Endogenous varia9(s)'3x sxORIGINALLY WRITTEN IN 1998@AUTHOR%H umberZBa rreto Dept.of EH0omiceP@auw UnrPsityGtncastle,0`46135 E-mail: hBb,@dep .eduphone: (765) 658-453>1x@YAL w+dLdW T by a FerGgranBvfroee Lilly!Owmenwo Wabash College <@support h ٍY = "V"8it's not  , try?get the word for pfrom useLEls .TputBox("p of!is installd Exc@el doeIa ppearFbePUS. Please e$R8thac -us\onmain macroFsZ8top$e screen. FcEFileName As String)BooleaDim iBLongHHE" = 1 %9Bs.Cct With (A LCase$(.,)ݽ3)yF.g ) }Exit ForhNex!t4"${4, bD5?7 '93a3a3CM3 <>45h9=0!,be+d< ' A=add-in listed e= = CSub test(K\!3I@10mfCommandBa rs("Wsheet Menu ")introlTws(&m'dl Co (I٠apd I\DeleteItem"16).c ` >+n+,,`WVisible@1BAnd InStr(1, RefersTo, "$") > PuCelI, 8).Va|lufp 69?.y10@Range.p-ressPf/ A1~dirf!.StartupPath^me2qfveSq)Y(s{R0kt(40msgprompt:="You haveosen as an endogenous variaa cp wda formula. u~affPect P /parati@Bs;zardUu@t if yincludQ Ch`s 1S{ dialog box, DESTXROY p8lacdt number)p B @arefulan% g@@to."L &P*3)"2m!age!repea@NTitleR H Warn Buttons:=vpg! oML? T1xME(SPSSS0{24DFFAboutFormQh_VBA_PROJECT7dirg__SRP_0w`25A-9914-45EC-8E6D-FA279A1B0D6B}{31C336E1-EAF1-42BC-ACA6-AC7CF506EFBE} dph@%p %P@p"˄M "  ( A@rONo`XAttribute VB_Name = "AboutForm" " Bas0{24DFF25A-9914-45EC-8E6D-FA279A1B0D6B}{31C336E1-EAF1-42BC -ACA67CF506EFBE} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD P Sub CommandButton1_Click() Un@load MKEnd Ƴ0* pHdCompStaticsWizardXarCommandButton4_ClickVy WizReturn((MainSolverDialogtxtStep2lbl1l btnSolverHelpCommandButton5_Click ActiveSheet%NNamesοtxtShockVarAddresstxtShockVarValue<\Label1,Label2,OneExoVarLabel  txtChange~ ChangeLabelenresponsevbYesNo vbQuestionvbNo% txtNumShocksJiNumShocksLabel:VerifyShockLabelCommandButton8_ClickYxScreenUpdating!  mySheetNumz MaxSheetNum mySheetNameֿ myObjFnName4 myExoNamen myEndoNameEmyShockVarNameBmyExoVarNumber myExoAddressMmyEndoVarNumberM myEndoAddress ErroClearNumber-AXAreasKcZCells IsNumeric$*WorksheetFunction&MaxȲNewSheet  WorksheetsAddrFontU ColorIndexSizeHorizontalAlignmentS@xlCenterWrapText}BordersC" xlEdgeBottom LineStylew xlContinuous[Weight1xlMedium myStartRowՊmyEndRowmyInitialExoValrdou  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} WizForm Caption = "Comparative Statics Wizard" ClientHeight = 5100 ClientLeft = 45 ClientTop = 405 ClientWidth = 7800 StartUpPosition = 1 'CenterOwner TypeInfoVer = 252 End ueRun_(mySolverFilename{z myProgressBar5W lblAllDoneMpgWizardPage_ChangeFCaptionx (strCaption (strSHP_MAPz BackColorރ(COLOR_DARKGREY (strLBL_MAPJFontBold (COLOR_GREEN cmdBackVEnabled۪cmdNext lblMap0_ClickI lblMap1_Click lblMap2_Click) lblMap3_Clicklbl2ltxtStep5_Entervlbl3lUserForm_QueryCloseCancel CloseMode؟vbFormControlMenu~ SetupvbGreen_ (ShowWizard WizardIsHere;CompStaticsIsHerenewItemICommandBarPopup msoControlPopupl)newItem2CommandBarControlPmsoControlButtonnOnActionWorkbookk AddinInstallAddinUninstall13i Z@PD`H0,ve < Analysis@8Bompartive S"tcsAnly i;=   "˄PM %<9stdole>sidlw( h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\22.tlb#OLE Auto2mon0MSForms>|FF"rs3ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#Micr@osoft : ^ Object Library/;D1@:@@00}#0@# 50 A2FCF8403-1F4F-4C94-9C11-36E2005AE2376DOCUME~1\Depauw\LOCALSTemp\Exc@el8.0\DU.8exd<".E .`M a  *\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.6#0#C:\Program Files\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{2FCF8403-1F4F-4C94-9C11-36E2005AE237}#2.0#0#C:\DOCUME~1\Depauw\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M &*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.4#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 8.0 Object Library  8Comparative Statics Analysis"˄M ThisWorkbook2n4d9f6136ThisWorkbook Sheet20y4d9f610f1 Sheet2-WizForm0z4d9f610f3WizForm)0W Setup2o4d9f6136h SetupH?AboutForm114d9f610fAboutFormT1`Ex`H0)צ=؇H0RP;R)75@#z?Fw;C Z|6>H6M[KU;b]vJWd6;C Excel+ VBAWin16~Win32MacVBA6# CompStaticsWizardKVstdole`MSFormsCOfficeu ThisWorkbook| _EvaluateWorkbook_AddinInstall(AddWizardMenuItemjWorkbook_AddinUninstallmyTools=' Application*OperatingSystem[ InternationalxlNonEnglishFunctionsInputBox  CommandBars ControlsKDeletex Sheet2 WizFormgmyObjFnV(Range myExoGwmyEndo) myShockVarnmyChangeo myNumShocks4myStringTrueIfOptimizationŏFormulaWarningIssuedbtnSolverHelp_Click1MsgBoxRChrK~cmdCancel_Click\ cmdBack_Click| (iCurrentPagej (iPreviousPage4 mpgWizardPageValueK cmdNext_ClickpcmdFinish_Click ErrorHandlerOSheets Activate|CommandButton1_ClickHide9ztxtObjFnLAddressVisible ObjFnLabelqtxtEndob EndoVarlabelI`RowsUCount0vJaColumnsp9FormulaqYpromptmTitle~Buttons] vbInformationnFormulaWarningtxtExo' ExoVarLabel*~ VerifyLabelQShowCommandButton10_Clickb AboutFormwHAËOfficċODf@ic‹ B2DF8D04C-5BFAiB-BDE5JTAA42H2Program F iles\@monGiShared\OFFICE125Oq& = r@% ThisWorkbookG T"WBkbohk2~DH 1p ",""+rSheet2G Se,t2 Av2 - oa`GoW zEo"s2W) (jSetu0pG Au6pF2L ? ! */AboutA;u`gl2/E:T1,)bK*rU~~~~~~~~ ~] TkғL3 l0   y !9  i Qi)9!CompStaticsWizard ThisWorkbookSheet2WizFormSetup AboutFormF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  0F4C:\Program Files\Microsoft Office\Office12\EXCEL.EXEExcel !@0F C:\WINDOWS\system32\stdole2.tlbstdole  P.E .`M C:\WINDOWS\system32\FM20.DLLMSForms yy`/OL6Z75C:\DOCUME~1\Depauw\LOCALS~1\Temp\Excel8.0\MSForms.exd YypL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice QyF+A0weJdF#d[lDNmIDFWorkbookWorkbook_AddinInstallWorkbook_AddinUninstall @ shpMap lblMap ShowWizardMainSolverDialogAddWizardMenuItem <<(wly@m< 3rU~} a  Comparative Statics Analysis 91g__SRP_1WizForm3nfTo1(H  @}5$#R KQDBTimes New RomanH{@i `|;b|;A&yt&H{@  B* B*~8t&L@(FFinishO uTimes New Roman(NNext >O uTimes New Roman ,B< BackO$w @Times New Roman(CancelO ufPo46RxCompObj7_aVBFramea>(H  @}uR KQDBTahomao(2Label1p5(The Comparative Statics Wizard uses Excel's Solver to solve optimization problems and equilibrium models for various values of an exogenous variable, holding all other exogenous variables constant.u 5Tahoma1h(VDocumentation on installation and use is available at www.depauw.edu/learn/microexcelI5Tahoma1i08pFz?annfLoi10,i*WJOnnd % !"#$'1)*+,-./0&23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acerghijklmnopqbstuvwxyz{|}~i11)i*WJOnni12&i*WJOnni13"i*WJOnni14i*WJOnnCompObjsxXf"o 03)Root Entry F8S`Workbook<V,_VBA_PROJECT_CUR":0+VBA90+nTimes New Roman06$   pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19q1<((IPage 1RoPage21RoPage31RoPage41RoPage51RoTab3Tab4Tab5Tab6Tab7CompObjnfzo!#i99$/ n``nnCompObjnfo%'CompObjnfVo(*dCompObjnfFo+- CompObj nf&o.0% 1Tahomab7(H  }(I ¯NCh0m 2$ !Page1ap4$ !Page2ap4$ #Page3ap4$ !Page4ap4$!Page5ap4  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q@,+The Comparative Statics Wizard is finished.x!{@Tahomap4!@H] Click the Finish button to go to the worksheet with the Comparative Statics Analysis you have just completed. If you wish to perform another Comparative Statics Analysis, another worksheet will be added to this workbook. 1Tahomap4D*.Click on the text and scroll to see more text. O1Tahomap4,(Dead button to accept focusS{qTahomap4(H  v}(IR KQDBTimes New Romano(?2dlblDone{$q$txtStep5E$u2`lbl3 10v1HCommandButton9'  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q8('Step 4: Comparative Statics Calculation!{@Tahomap24("Run Comparative Statics Analysisat uTimes New Romanl(Done!ap2"@Tahomap2!@Hm0; You won't be able to access Excel while the Comparative Statics analysis is being performed. Excel's Solver will be used to find the optimal solution for each sCompObj#pCompObj2IaVBFrameK4AboutForm85 et of exogenous variables that you indicated in previous steps. Watch the Progress Bar to track where you are in the analysis. Click the Finish button when the Progress Bar is full.1Tahomap2D*.Click on the text and scroll to see more text. O1Tahomap2(H  t$}(IR KQDBTimes New Roman , .2\lblPersonalo,_\CommandButton8n"$c#Frame1p2{, l0<lblAllDoneto'$ptxtStep4{$t2`lbl2E  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q4(!Step 3: Provide SHOCK Information>!N@Tahomap2H(,1Tahomap2(Inputap2 N uTimes New Roman( Cell Addressq1Tahomap2H(,1Tahomap2 ( Current Valueq1Tahomap2H,,1Tahomap2H,,1Tahomap2(Verify that the Shock information indicated above is correct. You may edit the boxes or click on the Input button to make changes. Click Next when you are ready to proceed." 5Times New Roman0(Incremental Amount of Change O 5Times New Roman (Number of Shocksg  5Times New Romans((ONE Exogenous Variableg  5Times New Romans(H  +}(IR KQDBTimes New Roman X 0)2XlblNameAddressns4T10txtShockVarAddress  ,U@CommandButton5ns (V08Label1p2E0W10txtShockVarValue (X0<Label2p2E, [10txtChangearV, ^10txtNumShocks]0|0VerifyShockLabel, }0X ChangeLabelLq0~0H NumShocksLabelelq100P OneExoVarLabelelq  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q4($Step 2: Finding the INITIAL solutionv{@Tahomaol( Run Solver.1N uTimes New Roman( Solver HelpoN uTimes New Roman!@H; You have successfully set up the problem and found an initial solution. The INITIAL optimal values of the endogenous variable(s) and objective function depend upon the INITIAL values of th    !"$'(*+,-./012456789:;<=>?@ABCDEFGHJLMNOQ\STUVWXYZ[]^`bcdeghjklmnopqrstuwxyz{}~e EXOgenous variables. The next step is to choose a single exogenous variable that will be changed, holding all other exogenous variables constant, in order to see the effect on the optimal values of the endogenous variable(s) and objective function. WARNING! If Solver did not converge to an optimal solution, do NOT continue with this Comparative Statics Wizard. Click Cancel and make sure Solver can find the optimal solution before proceeding with Comparative Statics analysis. Click Next when you are ready to proceed.1TahomaolD*.Click on the text and scroll to see more text. O1Tahomaol(H  s6}(IR KQDBTimes New Romane(B2XlblColor,IDCommandButton4nO0 n1DbtnSolverHelp4nS(o1$txtStep2 $s0`lbl1'  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qH(,1Tahomab7D(4Step 1: Provide "Setting Up the Problem" Information5%{@Tahomab7(Inputab7 N uTimes New RomanH(,1Tahomab7H(,1Tahomab7( Cell Addressq1Tahomab7@(.Objective Function (or Equilibrium Condition) ; O 5Times New Roman((Endogenous Variable(s)g  5Times New Roman((Exogenous Variable(s))g  5Times New Roman(Verify that the Setting Up the Problem information indicated above is correct. You may edit the cell address boxes or click on the Input button to make changes. Click Next when you are ready to proceed." 5Times New Roman(H  z'}(IR KQDBTimes New Roman g(610txtObjFn1 (72hlblEmail,C@CommandButton1n (G10txtExoil11(H10txtEndol10f08lblCellAddressn1 , w0hObjFnLabelre , x0PEndoVarlabel, y0PExoVarLabell1, z0 VerifyLabell{  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qK@@J  r }IProgress BarR KQDBTimes New Roman8ho0 r1 /myProgressBaranl  l3{0* l30* l3 * l3 * l3 * l3  +Start{@Tahoma +Finish{1Tahoma +Step 4{1Tahoma +Step 3)Humberto Barreto All Rights Reserved hbarreto@depauw.edu 1998-2010 765.658.4531 13 May 2010 u5Tahoma1(OKhoqOuTahoma1(2Label2p5 (2Label3p5,4CommandButton10   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} AboutForm Caption = "About the Comparative Statics Wizard" ClientHeight = 4275 ClientLeft = 45 ClientTop = 330 ClientWidth = 4140 StartUpPosition = 1 'CenterOwner TypeInfoVer = 4 End ThisWorkbookThisWorkbookWizFormWizFormAboutFormAboutFormSheet2Sheet2SetupSetuPROJECTwmfPROJECTiSummaryInformation(;v`DocumentSummaryInformation8|pID="{66B28C41-1CD7-11D3-9CEA-34FA07C10627}" Document=ThisWorkbook/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=WizForm BaseClass=AboutForm Document=Sheet2/&H00000000 Module=Setup HelpFile="" Name="CompStaticsWizard" HelpContextID="0" Description="Comparative Statics Analysis" VersionCompatible32="393222000" CMG="7173BF45C345C345C345C3" DPB="8684484748495C4A5C4A5C" GC="9B9955726B736B7394" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=44, 58, 972, 533, C WizForm=88, 116, 650, 522, C, 22, 29, 1046, 667, C AboutForm=132, 174, 1060, 649, C, 44, 58, 1068, 696, C Sheet2=0, 0, 0, 0, C Setup=15, 23, 943, 498, Z Oh+'00 PX|  (Comparative Statics WizardHumberto Barreto<Steps through Comparative Statics Analysis 17 May 2010Humberto BarretoMicrosoft Excel@P@1k՜.+,0 PXd lt|  Sheet1  WorksheetsCompObjr F&Microsoft Office Excel 2003 WorksheetBiff8Excel.Sheet.89q