Hi guys. My sub below works however right now I have the output go to a sheet. However, I want the output to go to an array that I can send to a window or a window with a chart. Anyways, I'm not that knowledgable in arrays and need everyones help.
Code
Public Sub realScen()
Dim intPrice As Double
Dim EBITDA As Double
Dim ROR As Double
Dim Price As Double
dim newprice as double
intPrice = Sheets(1).Range("Price").Value
Price = intPrice
Dim j As Integer
j = 1
For i = 0.875 To 1.15 Step 0.02
newprice = Price * i
Sheets(1).Range("Price").Value = newprice
EBITDA = Sheets(1).Range("EBITDA").Value
ROR = Sheets(1).Range("ROR").Value
Sheets(2).Cells(10 + j, 1).Value = newprice
Sheets(2).Cells(10 + j, 2).Value = EBITDA
Sheets(2).Cells(10 + j, 3).Value = ROR
j = j + 1
Next i
End Sub
Display More