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
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