Hi all,

Sorry slight error in my code, it should be as follows:



Function CCY_CALC(PosVal, CCY)

CCYType = CCY

Select Case CCYType
Case "AUD"
' AUD_USD is the defined name which points to a cell with the amount of 1.3

RateD = PosVal * AUD_USD

Case "CAD"
' AUD_USD is the defined name which points to a cell with the amount of 1.01

RateD = PosVal * CAD_USD

End Select


CCY_CALC = RateD

End Function