Type Mismatch (error 13) when use hyberlink at VBA to Cell at another sheet

[maabadi]

Hi Guys?
I see error 13 (type mismatch) when Use this worksheet change event at line Hyperlink? What is Problem?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, j As Long, Lr1 As Long, Lr2 As Long, Cr1 As Long, Cr1R As Range
 Lr1 = Range("A" & Rows.Count).End(xlUp).Row - 1
 Lr2 = Range("N" & Rows.Count).End(xlUp).Row - 1
 Cr1 = Application.WorksheetFunction.Match(Range("A" & Lr1), Sheets("Sheet1").Range("A1:A" & Lr1), 0)
 Set Cr1R = Sheets("sheet1").Range("A" & Cr1)
  If Not Intersect(Target, Range("A" & Lr1)) Is Nothing Then
   If Target.Count = 1 Then
    Application.EnableEvents = False
     Range("B" & Lr1 - 1 & ":D" & Lr1 - 1).AutoFill Destination:=Range("B" & Lr1 - 1 & ":D" & Lr1)
     Sheets("sheet2").Hyperlinks.Add Anchor:=Range("A" & Lr1).Value, Address:="", SubAddress:=Cr1R, TextToDisplay:=Range("A" & Lr1).Value
        Application.EnableEvents = True
   End If
  End If
End Sub

 

[maabadi]

I find Answer & Problem:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, j As Long, Lr1 As Long, Cr1 As Long, Cr1R As String, Lr3 As Long
 Lr1 = Range("A" & Rows.Count).End(xlUp).Row - 1
 Lr3 = Sheets("Work").Range("A" & Rows.Count).End(xlUp).Row
 Cr1 = Application.WorksheetFunction.Match(Range("A" & Lr1).Value, Sheets("Work").Range("A1:A" & Lr3), 0)
 Cr1R = Range("A" & Cr1).Address
 
  If Not Intersect(Target, Range("A" & Lr1)) Is Nothing Then
   If Target.Count = 1 Then
    Application.EnableEvents = False
     Range("B" & Lr1 - 1 & ":D" & Lr1 - 1).AutoFill Destination:=Range("B" & Lr1 - 1 & ":D" & Lr1)
     Sheets("Sheet1").Hyperlinks.Add Anchor:=Range("A" & Lr1), Address:="", SubAddress:="'" & Sheets("Sheet2").Name & "'!" & Cr1R, TextToDisplay:=Range("A" & Lr1).Value
    Application.EnableEvents = True
   End If
  End If
 End Sub

Thanks Friends.