Clean the row if column F does not contain UDS or EUR

[parscon]

Heloo
I need a VBA code that check column F and if it will not find USD or EUR or CAD on this column clean the row also data on column F .i need clean not delete.
thank you

[SamT]

roughly:
For each Cel in Range("F1:F" & LastRow)
If not (Cel ="USd" OR Cel = EUr" or Cel = "Cad") Then
Cel.EntireRow.ClearContents.

[parscon]

Dear smaT
I used the below code but does not work

Sub wewe()
For Each Cel In Range("F1:F" & LastRow)
If Not (Cel = "USD" Or Cel = "EUR" Or Cel = "TL") Then
Cel.EntireRow.ClearContents
End If
Next
End Sub

[parscon]

I used this code and it is work

Sub deleterows()

Dim intcount As Integer
Dim introw As Integer

intcount = ActiveSheet.UsedRange.Rows.Count

For introw = intcount To 1 Step -1
    If Not Range("D" & introw) = "USD" Or Range("D" & introw) = "EUR" Or Range("D" & introw) = "CAD" Then
    Range("D" & introw).EntireRow.ClearContents
    End If

Next

End Sub

[SamT]

Excellent work.

[Paul_Hossler]

Never mind -- had it backwards