Проверка диапазона ячеек от пользовательского ввода VBA

Question

Я пытаюсь проверить небольшой диапазон значений по отношению к введенному пользователем значению. Запрос проходит через диапазон, но он никогда не попадает в строку ActiveCell.EntireRow.Clear, когда это необходимо. Мой код ниже, любые идеи?

Private Sub CommandButton3_Click() 
Dim iLastRow As Long 
Dim i As Long 
Dim myValue2 As String 
myValue2 = InputBox("Enter Last Name:") 

With ActiveSheet 

    iLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row 
    For i = 33 To iLastRow 
     If ActiveCell.Value = myValue2 Then 
    ActiveCell.EntireRow.Clear 

    Else 

    End If 
     Next i 

End With 

End Sub 

Answer 1

Вам не нужно ActiveCell:

Private Sub CommandButton3_Click() 
    Dim iLastRow As Long 
    Dim i As Long 
    Dim myValue2 As String 
    myValue2 = InputBox("Enter Last Name:") 
    With ActiveSheet 
     iLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row 
     For i = 33 To iLastRow 
      If Cells(i, "B").Value = myValue2 Then 
       Cells(i, "B").EntireRow.Clear 
      End If 
     Next i 
    End With 
End Sub