Currency Convertion

Sub CurrencyConvertion()

Dim lngLoop As Long

 lngLoop = 1

  For lngLoop = 1 To Rows.Count
    If Cells(lngLoop, 8).Value = "CDN" Then Cells(lngLoop, 11).Value = Cells(lngLoop, 11).Value*0.77

    If Cells(lngLoop, 8).Value = "MXN" Then Cells(lngLoop, 11).Value = Cells(lngLoop, 11).Value*0.057
 
  Next lngLoop
End Sub