Getting a Type Mismatch error on the line in Red, any ideas why? But if I take out the * 1.4503 it will take the value from Cell (0, 5) and put it in Cell (0, 9)

VB Code:
  1. Sub Macro3()
  2. Dim MyCell3 As Range
  3.  
  4. For Each MyCell3 In Sheet1.Columns("D").Cells
  5. With MyCell3
  6.     If .Value = "" Then Exit For
  7.     If .Value <> "OMI" Then
  8.         [COLOR=Red].Offset(0, 9).Value = .Offset(0, 5).Value * 1.4503[/COLOR]
  9.     Else
  10.         .Offset(0, 9).Value = .Offset(0, 5).Value
  11.     End If
  12. End With
  13. Next MyCell3
  14.  
  15. End Sub