Dan had ik je verkeerd begrepen. Ik dacht dat iedere file een link moest worden.
Sub jec()
Dim ar, sp, xFile, xp, it, i As Long, j As Long, x As Long
ar = Range("C4", Range("C" & Rows.Count).End(xlUp))
ReDim sq(UBound(ar), 500)
With CreateObject("Scripting.FileSystemObject")
For i = 1 To UBound(ar)
sp = Split(ar(i, 1), " - ")
For j = sp(0) To sp(UBound(sp))
xp = "\\OX-DC-DATA\Data\4-PRODUCTION\CMR ARCHIEF\2023\" & ar(i, 1) & "\"
If Not .FolderExists(xp) Then .createfolder xp
If .FileExists(xp & j & ".pdf") Then
Set xFile = .getfile(xp & j & ".pdf")
If xFile.Name Like "*pdf" And xFile.DateLastModified > Date - 500 Then sq(i - 1, x) = Split(xFile.Name, ".pdf")(0)
End If
x = x + 1
Next
x = 0
ActiveSheet.Hyperlinks.Add Cells(i + 3, 3), xp, , , ar(i, 1)
Next
End With
Range("G4").Resize(UBound(ar), 25) = sq
End Sub