Salve a tutti.

Avevo una funzione che mi consentiva di estrarre l'URL di una cella contenente un collegamento ipertestuale ma se esportavo il foglio in un una diversa cartella di lavoro perdevo il dato (dovevo inserire la funzione anche nel nuovo file).

Ho rimediato creando un codice che inserisce nelle celle il link (invece della funzione che lo estrae):
    For EUrl = 2 To Ultriga
    Cells(EUrl, 4) = Sheets(1).Range("A" & EUrl).Hyperlinks(1).Address
    Next EUrl
Quello che mi chiedevo è se si può evitare il ciclo ed eseguire l'operazione direttamente sul range (A2:A"ultima riga" per la sorgente e D2: D"ultima riga" per la destinazione).

Ringraziando in anticipo tutti quelli che proveranno ad aiutarmi volevo segnalare che il numero medio di celle su cui si opera non è tale da creare tempi di attesa inaccettabili. (Lo dico perché non vorrei che qualcuno mettesse troppo impegno o mi fornisse una soluzione troppo elaborata per un problema che potrebbe anche rimanere irrisolto senza gravi conseguenze.)