Hyperlink

[JanFio]

Hi,

I have problem with my vba code..
What I want it to do is pick a value from 1st cell and make a hyperlink in another cell with with that value. Value is only used for making a filename.
This need to be done for all 1st cells containing some value.

I will post my code it will be more clear.

Private Sub Worksheet_Activate()
    
Call UbaciLinkM
    
End Sub

Sub UbaciLinkM()
    
    Dim rLastCell As Range
    Dim Cell As Range
    Dim Cell1 As Range
    Dim DevNum As String
    Dim fPath As String
    Dim fName As String

    Range("A2").Select
    
    Set rLastCell = Worksheets("Gubici").Range("M" & Cells.Rows.Count).End(xlUp)
    
    For Each Cell1 In Range("M2", rLastCell)
                  
        Dev_Num = ActiveCell.Offset(0, 0).Value
       
        fPath = Application.ActiveWorkbook.Path
        fPath = fPath & "\HACCP-07\"
        fName = Dev_Num & ".pdf"

        Set Cell = ActiveCell.Offset(0, 12)
            
        Cell.Hyperlinks.Add Anchor:=Cell1, Address:=fPath & Replace([fName], "/", "-")
            
               
    Next Cell

End Sub

Any suggestions?

Thanks.

 

[crewaustin66]

Use next, not net cell. Code seems to work for me.