Sub Deletenames()

Dim Going As Long
Dim Far As Long
Dim Pass As Range
Going = ActiveSheet.Cells(10000, 2).End(xlUp).Row
For Far = Going To 1 Step -1
Set Pass = ActiveSheet.Range("N" & Far)
If Pass.Value = "Every name but name entered in textbox" Then
Pass.Offset(-1).Resize(2).EntireRow.Delete
End If
Next Far

End Sub

I am looking for assistance with this code. Id like to add additional
steps to the start of it. Ideally I would like to run this macro and have a
textbox appear with a message that reads €œWhats your name?€� Below this
question is an empty field with a combo box linked to various different names
on €œSheetlookhere€� N2:N1000. Whatever name is selected into the combo box
will be searched on SheetEmployee1, SheetEmployee2, and SheetEmployee3. Each
row in Column N that does not contain the name that was selected will be
deleted + the row above it will also be deleted. Can you advise?