Salve a tutti,

sto utilizzando una macro che mi permette di estrapolare dei file in formato .csv da una cartella esterna mediante collegamento in una cella specifica (cfr. immagine cella a destra) ed inserire  solo i dati che mi interessano.

Avrei bisogno di passare in modo automatico alla riga seguente per aprire i file successivi e ripetere la medesima azione (non so se un ciclo For è il più indicato). Di seguito il codice che utilizzo:

Sub ImportData()
'
' Import CSV data
'
    Range("S4").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("A5:C174000,R5:R174000,U5:V174000,X5:Y174000,AH5:AH174000,AN5:AO174000").Select
    Range("AN5").Activate
    Selection.Copy
    Windows("ModuloStandardGrafici - Copia.xlsm").Activate
    Range("C4").Select
    ActiveSheet.Paste
    Sheets("ModuloStGrafici").Copy
    Range("C4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.ClearContents
End Sub