View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
stewart stewart is offline
external usenet poster
 
Posts: 44
Default Stop error code from executing

I have a userform that contains a textbox. The user types in the name
of the person they are removing from the sheet and the VB code
searches for that name, deletes it and hides the row. I want to add
code that will display a msgbox ifthey type in a name wrong or one
that doesn't exist. However, even if there is no error it still runs
the msgbox. How do i tell vb to skip the msgbox if there is no
error. My code is below.

Private Sub btnRem_Click()
Sheets(2).Cells(1, 1).Activate
On Error GoTo b
Cells.Find(What:=txtName.Value, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Value = ""
Sheets(Array("Payroll Info", "Store Schedule")).Select
Selection.EntireRow.Hidden = True
Sheets(1).Activate
Selection.EntireRow.Hidden = True
b: MsgBox "That associate does not exist. Please double check the
spelling as it appears on the schedule and try again", vbExclamation
txtName.Value = ""
Sheets(2).Activate