Option Explicit Option Compare Text Sub Sigle_BA() Dim Ur As Long, X As Long Ur = Range("A" & Rows.Count).End(xlUp).Row For X = 1 To Ur If Cells(X, 2) = "BA" Then Range(Cells(X, 1), Cells(X, 7)).ClearContents 'oppure Range(Cells(X, 1), Cells(X, 7)).Delete Shift:=xlUp End If Next X End Sub Sub Sigle_tutte() Dim Ur As Long, X As Long, N As Long, Msg As String Ur = Range("A" & Rows.Count).End(xlUp).Row Msg = InputBox("Digitare due caratteri, Ex BA", , "") If Msg = "" Then Exit Sub For X = 1 To Ur If Cells(X, 2) = Msg Then Range(Cells(X, 1), Cells(X, 7)).ClearContents 'oppure Range(Cells(X, 1), Cells(X, 7)).Delete Shift:=xlUp N = N + 1 End If Next X If N = 0 Then MsgBox "Nessuna sigla con " & Msg End Sub