Rodney Jorgensen
Active Member
- Joined
- Nov 9, 2007
- Messages
- 411
For the code below, I want to set up error handling to just leave the textbox blank on the form. If there is not an e-mail address in the range that it is checking then I want the textbox to be loft blank. I do not want a message box asking me what to do, just leave blank and resume the code.
Thanks
Code:
Sheets("Data Sort").Range("A2:A25").Select
Selection.Find(What:="E-Mail", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Me.txtE_mail.Value = ActiveCell.Value
Thanks