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 As 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").Value * 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

\1

thank you for any help

so what is the question?

Are you looking for someone you can hire to modify it?

--
Regards,
Tom Ogilvy


"dispelthemyth" wrote:

>
> 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 As
> 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").Value
> * 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 help
>
>
> --
> dispelthemyth
> ------------------------------------------------------------------------
> dispelthemyth's Profile: http://www.excelforum.com/member.php...o&userid=32479
> View this thread: http://www.excelforum.com/showthread...hreadid=523374
>
>