Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "B5" Then
'Calling a Sub procedure is simple. You can leave out the CALL
'But you'll also need to leave out the bracket open and close
'if you're passing any parameters
Call CalculateExcangeRate("EUR", "USD")
'If you want to call a function assign its return value
'to a variable
l_dExchangeRate = CalculateCost("EUR", "USD", 10.95)
End If
End Sub