how do i change or make this macro??? pictures and code included

i need to either make this from scratch or change it to suit my needs.
Firstly a link to the template it is from
http://www.exinfm.com/excel%20files/FY2000WhatIf.xls

the code is
Sub projection()

Dim revgrowth As Single, costpercent As Single, smgrowth As Single
devgrowth As Single, gagrowth As Single
Dim intincome As Integer, noncontitems As Integer, otherexps A
Integer
Dim taxrate As Single, avgshares As Integer

'dialog box gets displayed
With DialogSheets("dialog3")
If .Show = False Then
Exit Sub
End If

revgrowth = .EditBoxes(1).Text
costpercent = .EditBoxes(2).Text
smgrowth = .EditBoxes(3).Text
devgrowth = .EditBoxes(4).Text
gagrowth = .EditBoxes(5).Text
intincome = .EditBoxes(6).Text
otherexps = .EditBoxes(7).Text
taxrate = .EditBoxes(8).Text
avgshares = .EditBoxes(9).Text
End With

'calculations of projected values
Range("rev97").Value = (Range("rev96").Value + (Range("rev96").Value
revgrowth))
Range("cost97").Value = (Range("rev97").Value * costpercent)
Range("rand97").Value = (Range("rand96").Value + (Range("rand96").Valu
* devgrowth))
Range("sandm97").Value = (Range("sandm96").Value
(Range("sandm96").Value * smgrowth))
Range("ganda97").Value = (Range("ganda96").Value
(Range("ganda96").Value * gagrowth))
Range("intinc97").Value = intincome
Range("othexp97").Value = otherexps
Range("tax").Value = (Range("incb4tx").Value * taxrate)
Range("avgshares").Value = avgshares

Worksheets("income statements").Range("k3:O3").EntireColumn.Hidden
False
End Sub

and it looks like this

[image: http://i2.photobucket.com/albums/y10.../094c74ca.jpg]

thank you for any hel

--
dispelthemyt
-----------------------------------------------------------------------
dispelthemyth's Profile: http://www.excelforum.com/member.php...fo&userid=3247
View this thread: http://www.excelforum.com/showthread.php?threadid=52337