There are many cases where we want to have a Hyperlink on a cell that opens a document / image etc. In the following snippet we can see how that works
Sub Create_HyperLinks() Dim i1 As Integer Dim sA, sB As String For i1 = 2 To Cells.SpecialCells(xlCellTypeLastCell).Row If LenB(Trim$(Cells(i1, 3).Value)) ;; 0 Then sA = Trim$(Cells(i1, 1).Value) sB = Trim$(Cells(i1, 2).Value) sA = "Compared_" ; sA ; "_" ; sB ; ".xls" Sheets(1).Range("C" ; i1).Hyperlinks.Add Cells(i1, 3), "CompareReports\" ; sA End If Next i1 End Sub
Now, learn to write simple yet effective VB coding with our comprehensive and specialized Course on Excel Automation here.
Happy Excelling
Team Excelgoodies
www.Excelgoodies.com