you can create a Sub to check if the same invoice exists on the Shared folder
and create a Hyperlink on your worksheet if it does.
Private Sub t()
'put the shared path here. dont forget to add the "backslash"
Const THE_SHARED_PATH As String = "\\PC_NAME\SHARE_FOLDER\"
Dim lngLastRow As Long, strFile As String, i As Long
With Worksheets(1)
lngLastRow = .Cells(1, 8).End(xlDown)
If lngLastRow > 1 Then
For i = 2 To lngLastRow
strFile = Dir$(THE_SHARED_PATH & .Range("H" & i) & ".*")
If Len(strFile) <> 0 Then
.Hyperlinks.Add Anchor:=.Range("I" & i), _
Address:=THE_SHARE_PATH & strFile, _
ScreenTip:="Invoice number " & .Range("H" & i), _
TextToDisplay:=strFile
End If
Next
End If
End With
End Sub