Although it compiles I think the problem is with Application.Offset
Not sure if this can work. I thought that Offset had to do with the Range
object
and I don't see any ranges in your code.
This bit for example:

MsgBox WorksheetFunction.Offset(14, WorksheetFunction.Min(2005, 7), _
0, _
WorksheetFunction.Min(2005 - 2005 + 1, 7
+ 1), 1)

gives an error:
object doesn't support this property or method.

You will have to pass the ranges to the function and the whole thing needs a
bit of a work-around.


RBS

"Floyd" wrote in message
ps.com...
Certainly.

CI9 - 15.00
CF9 - 2005
Fac_Depr - 7.0


Current_Year As Double - 2005
Year_First As Double - 2005
Fac_Depr As Integer - 7
FirstInvFacTangDrillDepr As Double - 14.29%
Eligible_Depr As Variant - 15.00

Expected Value : 2.14 (0.1429*15)

Thank you.