Buona giornata, mistervolt;
senza un File d'esempio è sempre complicato fornire una risposta coerente, in ogni caso, cerco di interpretare la tua richiesta.
Nel File in allegato abbiamo:
- nella Cella "C1" la Path (Percorso) dove risiedono i File da valutare
- nella Variabile "Stn" l'estensione dei File da valutare
Option Explicit
Sub Assegna_Hyperlinks()
Application.ScreenUpdating = False
Dim NHy As Long, RgX As Long
Dim Stn As String, MiaPath As String
Stn = Dir("*.xlsx")
NHy = Range("A" & Rows.Count).End(xlUp).Row
MiaPath = Cells(1, 3).Value
ChDir MiaPath
RgX = NHy
While Stn <> ""
RgX = RgX + 1
Cells(RgX, 1) = MiaPath & Stn
Cells(RgX, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(RgX, 1)
Stn = Dir
Wend
Columns("A:A").EntireColumn.AutoFit
Application.ScreenUpdating = True
Cells(1, 3).Select
End Sub
Buon fine settimana.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013