Why will the following code not delete column A in addition to the other
columns?

Dim fRow As Long
On Error GoTo ender
fRow = Columns(2).Find(What:=txt1.value, _
After:=Cells(1, 2), LookIn: =xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False).Row
Rows(fRow).Delete
Exit Sub
ender:
MsgBox "Value not found"
End Sub