ربط خلية في ورقة اكسل لفتح ملف من نوع word

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo eeee
cc = Target.Column
rr = Target.Row
If cc = 2 And rr = 2 Then
    xxx = ThisWorkbook.Path & "" & Range("B2").Value & ".docx"
    ActiveSheet.Shapes("AutoShape 3").Select
    Selection.ShapeRange.Item(1).Hyperlink.Delete
    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=xxx
    Range("C3").Select
End If
eeee:
Application.EnableEvents = True
Application.ScreenUpdating = False

End Sub