Use VBA to auto Hyperlink files based on input

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A8:A9999")) Is Nothing And Target.Value <> "" Then
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Target.Offset(0, 1), _
        Address:="\\fserver\folder\" & Range("B7").Value & Target.Value, _
        TextToDisplay:="YES"
End If
End Sub

No problems. Change the code to:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
    If Not Intersect(c, Range("A8:A9999")) Is Nothing Then
        If c.Value = "" Then
            c.Offset(0, 1).ClearContents
        Else
            ActiveSheet.Hyperlinks.Add _
                Anchor:=c.Offset(0, 1), _
                Address:="\\fserver\folder\" & Range("B7").Value & c.Value & ".pdf", _
                TextToDisplay:="YES"
        End If
    End If
Next c
End Sub

Does this work better?

Great and workable ... Resolve
Thanks a lot ..... Really appreciate it.

Originally Posted by zulfaizan

Great and workable ... Resolve
Thanks a lot ..... Really appreciate it.

Good, glad it does what you want

You can mark this thread 'solved' now.

Edit the line highlighted red:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
    If Not Intersect(c, Range("A8:A9999")) Is Nothing Then
        If c.Value = "" Then
            c.Offset(0, 1).ClearContents
        Else
            ActiveSheet.Hyperlinks.Add _
                Anchor:=c.Offset(0, 1), _
                Address:="\\fserver\folder\" & Range("B7").Value & c.Value & ".pdf", _
                TextToDisplay:="YES"
        End If
    End If
Next c
End Sub

You can make this anything you want. Your new question isn't specific enough to provide an actual specific answer for you, but it might look something like:

Address:="\\fserver\folder\" & ActiveSheet.Name & c.Value & ".pdf", _
                TextToDisplay:="YES"