VBA - Delete Entire Row if Cell contains Text variable

[mokhtar]

try

Sub sbDelete_Rows_IF_Cell_Cntains_String_Text_Value()

Dim LRow As Long
Dim X As Long

LRow = 10

For X = LRow To 1 Step -1
   If Cells(X, "A") = "France" Or Cells(X, "A") = "Italie" Or Cells(X, "A") = "UK" Then    ' You can change this text
      Cells(X, "A").Resize(, 2).ClearContents
   End If
Next

End Sub