Error handling a macro to delete a row

[Bradzo]

Hi all,

I have a problem where I have the below code deletes the upper most empty row if no name or an incorrect name is entered into the InputBox?

I thought I may overcome this with If searchthis = "" Then Exit Sub but it doesn't seem to work. Help would be appreciated.

Thanks.



Sub Button4_Click()
'Archive person X Dock
Dim searchthis

searchthis = InputBox("Enter employee NAME to search.", "Property Search")

If searchthis = "" Then
Exit Sub
End If

On Error GoTo errorhandler

Application.ScreenUpdating = False

ActiveSheet.Range("b:b").Select
Selection.Find(What:=searchthis, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext).Activate
ActiveCell.Select


Rows(ActiveCell.Row).Delete Shift:=xlUp

Application.ScreenUpdating = True

Exit Sub

 

[Michael M]

Try using
You also didn't have a error handler for the error line to go to

Sub Button4_Click()
Dim searchthis As String
On Error GoTo errorhandler
searchthis = InputBox("Enter employee NAME to search.", "Property Search")
If searchthis = "" Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.Range("b:b").Find(What:=searchthis, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext).Activate
Rows(ActiveCell.Row).Delete
Application.ScreenUpdating = True
Exit Sub
errorhandler:
MsgBox "Nothing found"
Application.ScreenUpdating = True
Exit Sub
End Sub

 

[Bradzo]

Hi Michael,

It works a treat, thank you for the assistance.

Brad

 

[Michael M]

glad to help...