AlextheTrader
New Member
- Joined
- Jul 25, 2014
- Messages
- 11
I am only 1 week to learning VBA. So I am still learning the basics. I am building this code to calculate the expected move of a stock.
I am getting a Sub or Function Not Defined message. What should I fix.
Sub Expected_Move()
Dim Stock_Price As Double
Dim Impl_Vol As Double
Dim Time_Period As Double
Dim Square As Single
Dim IV_Adjust As Single
Dim Exp_Move As Single
Dim Sp As Range
Dim Iv As Range
Dim Tp As Range
Sp = Range("A2")
Iv = Range("B2")
Tp = Range("C2")
Stock_Price = Sp
Impl_Vol = Iv
Time_Period = Tp
Square = Sqrt(Time_Period / 365)
IV_Adjust = Stock_Price * Impl_Vol
Exp_Move = IV_Adjust * Square
Worksheets(1).Range("D2").Value = Exp_Move
End Sub
I am getting a Sub or Function Not Defined message. What should I fix.
Sub Expected_Move()
Dim Stock_Price As Double
Dim Impl_Vol As Double
Dim Time_Period As Double
Dim Square As Single
Dim IV_Adjust As Single
Dim Exp_Move As Single
Dim Sp As Range
Dim Iv As Range
Dim Tp As Range
Sp = Range("A2")
Iv = Range("B2")
Tp = Range("C2")
Stock_Price = Sp
Impl_Vol = Iv
Time_Period = Tp
Square = Sqrt(Time_Period / 365)
IV_Adjust = Stock_Price * Impl_Vol
Exp_Move = IV_Adjust * Square
Worksheets(1).Range("D2").Value = Exp_Move
End Sub