I have some code to generate hyprlinks from a folder

Private Sub Workbook_Open()
Dim lCount As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next

    With Application.FileSearch
        .NewSearch
         'Change path to suit
        .LookIn = "C:\spread"
        .FileType = msoFileTypeExcelWorkbooks
       ' .Filename = "Book*.xls"
        
            If .Execute > 0 Then 'Workbooks in folder
                For lCount = 1 To .FoundFiles.Count 'Loop through all.
                    ActiveSheet.Hyperlinks.Add Anchor:=Cells(lCount, 1), Address:= _
                    .FoundFiles(lCount), TextToDisplay:= _
                     Replace(.FoundFiles(lCount), "C:\spread\", "")
                 Next lCount
            End If
    End With
    
    On Error GoTo 0
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True

End Sub
but when i validate using a list, using this column as the criteria for the list. The hyperlinks lose their links is there anyway of giving keeping or re adding the links?