Application-defined or object-defined error

Hello,

I would like to do the following calculation with and "if" function but I recieve the above error message..

I would appreciate if somone could help.


Sub calc()

If Cells("D7").Value = "USD/JPY" Then

Cells("I7") = Cells("C13") * Cells("H7")

End If

Best Regards,

Endre