How to use multiple time Errhandler

[Ahmed786]

Dear all i want to use err handler multiple time kindly help me in this regard
Sub HOME1()


Sheets("vida data after macros").Select
With Worksheets("vida data after macros").Cells
On Error GoTo errHandler
Set cl = .Find("rania", After:=.Range("A2"), LookIn:=xlValues)
If Not cl Is Nothing Then
cl.Select
End If
End With
ActiveCell.Offset(1, -5).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Dr. Abdulla Ismaeel").Select
ActiveSheet.Range("A9").Select
ActiveSheet.Paste
errHandler: Sheets("vida data after macros").Select

With Worksheets("vida data after macros").Cells'UP TO HERE CODE IS WORKING FINE UNABLE TO USE ERRHANDLER SECOND TIME
On Error GoTo errHandler2:
Set cl = .Find("tania", After:=.Range("A2"), LookIn:=xlValues)
If Not cl Is Nothing Then
cl.Select
End If
End With
ActiveCell.Offset(1, -5).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Dr. Abdulla Ismaeel").Select
ActiveSheet.Range("A9").Select
ActiveSheet.Paste
errHandler2: Sheets("Dr name").Select
I GOT RUN TIME ERROR 1004

End Sub

 

[6StringJazzer]

I cannot reproduce your error. Exactly what line causes the runtime error 1004? What error do you anticipate occurring in the code that you want to handle with On Error?

 

[Ahmed786]

Actually I want to know how to use errhandler multiple times
If u look at my code I first said if not find word rania then errhandler will take me to sheet vida
Which is working but when I m using again errhandler it giving me error
I set cl Tania if not find Tania in excel sheet then err handler take me to dr name sheet
Thanks again