Open the "BEMacroModel2" file within Microsoft Excel by clicking here. (109 KB .xls)

Save the file to your hard drive (remember where you put it) and return back to this page.

Open Microsoft Excel and open the copy of "BEMacroModel2".

Ensure not other Excel Workbooks are open.

Within the BEMacroModel 2 spreadsheet:

Select:  Tools  

            Macro

            Visual Basic editor

You will go to a new screen.  In the box entitled "Project - VBA Project", click on  "Module 1"  (You may have to click on "Modules" first.)

This will open a window with the heading "General"

Come back to this sheet and copy the macro text below into that window.

(You can read the two macros below to see what they do and check for suspicious instructions.)

Once you have copied to scripts to the Module 1 General box,  return to the spreadsheet and the macro buttons should work.

If they do not, copy the script below again, return to the Excel worksheet and put the macro in the Module 1 (General) window again.  

   



Sub ExchangeRate2()
'
'
' Macro recorded 30/09/2002 by Harkness
Sheets("Calcs").Select
Cells(21, 4) = 1

For Column1 = 4 To 13

Range("E38").Select
Cells(30, Column1).GoalSeek Goal:=0, ChangingCell:=Cells(40, Column1)
Range("E38").Select


Next Column1
Sheets("Control").Select
Range("A1").Select
End Sub

 


Sub OptExchangeRate2()
'
'
' Macro recorded 30/09/2002 by Harkness
Sheets("Calcs").Select

Cells(21, 4) = 0
Range("E38").Select
Cells(43, 10).GoalSeek Goal:=0, ChangingCell:=Cells(44, 14)
Range("E38").Select

Cells(43, 11).GoalSeek Goal:=0, ChangingCell:=Cells(45, 14)
Range("E38").Select
Cells(43, 13).GoalSeek Goal:=0, ChangingCell:=Cells(46, 14)
Range("E38").Select

Sheets("Control").Select
Range("A1").Select
End Sub