software

i need to either make this from scratch or change it to suit my needs.
Firstly a link to the template it is from
www.exinfm.com/excel files/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(quot;dialog3quot;)
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(quot;rev97quot;).Value = (Range(quot;rev96quot;).Value (Range(quot;rev96quot;).Value *
revgrowth))
Range(quot;cost97quot;).Value = (Range(quot;rev97quot;).Value * costpercent)
Range(quot;rand97quot;).Value = (Range(quot;rand96quot;).Value (Range(quot;rand96quot;).Value
* devgrowth))
Range(quot;sandm97quot;).Value = (Range(quot;sandm96quot;).Value
(Range(quot;sandm96quot;).Value * smgrowth))
Range(quot;ganda97quot;).Value = (Range(quot;ganda96quot;).Value
(Range(quot;ganda96quot;).Value * gagrowth))
Range(quot;intinc97quot;).Value = intincome
Range(quot;othexp97quot;).Value = otherexps
Range(quot;taxquot;).Value = (Range(quot;incb4txquot;).Value * taxrate)
Range(quot;avgsharesquot;).Value = avgshares

Worksheets(quot;income statementsquot;).Range(quot;k3:O3quot;).EntireColumn.Hidden =
False
End Sub

and it looks like this

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

thank you for any help--
dispelthemyth
------------------------------------------------------------------------
dispelthemyth's Profile: www.excelforum.com/member.php...oamp;userid=32479
View this thread: www.excelforum.com/showthread...hreadid=523372