Import data and Attach Hyperlink

[helpexcel]

Hi - I'm currently running code that opens workbook2 copies data and then closes workbook2. Is there a way to insert a hyperlink for workbook2 into column "B" of the row the data is being pasted? Here's the code I'm using to import.

Dim ws1 As WorksheetSet ws1 = Sheet1


sPath = "\\Server\Folder1\" & ws1.Range("A5")


If SetFilePath(sPath) = 0 Then
    MsgBox "Error in setting the path - " & sPath
Else
    sFile = Application.GetOpenFilename("Excel,*.xls;*.xlsx")
End If


If sFile <> False Then
    Set WB = Workbooks.Open(sFile)
Else
    MsgBox "No File Selected"
        Exit Sub
End If


Set ws2 = WB.Sheets("Data")
Set CsNm = WB.Sheets("Data").Range("A1")


Set found = ws1.Range("B:B").Find(what:=CsNm, LookIn:=xlValues, lookat:=xlWhole)
If found Is Nothing Then
    fRow = InputBox("Name match not found - Enter Row")
    Else
    fRow = found.Row
End If




With ws2


    .Range("J8").Copy
    ws1.Range("C" & fRow).PasteSpecial xlPasteValues


    .Range("J9").Copy
    ws1.Range("D" & fRow).PasteSpecial xlPasteValues


    .Range("J3").Copy
    ws1.Range("E" & fRow).PasteSpecial xlPasteValues


End With


WB.Close False

 

[helpexcel]

I added this code right before WB.Close False and it works perfectly.

ws1.Hyperlinks.Add Anchor:=ws1.Range("B" & fRow), Address:=sFile