Come estrarre url da elenco link in celle excel

[ghisirds]

Ciao a tutti.

Ho provato a seguire una guida letta da un newsgroup per estrarre gli url completi da una lista di indirizzi inseriti nelle celle.

La guida diceva così:

'----------------

Public Function Estrai_Indirizzi(ByVal Collegamento As Excel.Range)

Estrai_Indirizzi Replace _
(Collegamento.Hyperlinks(1).Address, "mailto:", "")

End Function

Devi incollare il codice in un modulo VBA (Alt + F11 e si apre l'editor,
sulla sinsistra, nella finestra Progetto individua il file in cui vuoi
rendere disponibile la funzione (io, ad esempio ce l'ho nella cartella
Personal.xls, in modo da averla sempre disponibile...), clicchi col tasto
destro, sul nome del file, Inserisci, Modulo e vi incolli il codice
postato).

L'utilizzo è semplicissimo. Basta andare sul foglio Excel ed inserire la
funzione (basta cliccare sul tasto fx sulla barra della formula, scegliere
come categoria Definite dall'utente, e fare dopio clic sul nome della
funzione) e passarle come parametro la cella in cui si trova il link. A
questo punto, visto che hai i link in colonna, ti basta trascinare lungo la
colonna ed il gioco è fatto. Poi se devi trasferire il file su un altro PC
in cui non è presente la funzione uttente utilizzata, è meglio selezionare
la colonna e fare copia & incolla valori.

'----------------

ora, una volta mi funzionava ma ora ho formatato tutto, e quando vado ad inserire questa funzione mi da l'errore:

"errore di compilazione: tipo non corrispondente" e mi evidenzia il Replace.

Qualcuno sa perchè?
Ci sono altri metodi per estrarre questi link, magari un po meno complessi e legati al file in modo che se uno formatta il codice rimane?
Grazie
Marco

[Alexsandra]

hai messo =

[ghisirds]

infatti mi avevano già risposto da un'altra parte:


Prova a sostituire:

Estrai_Indirizzi Replace _
(Collegamento.Hyperlinks(1).Address, "mailto:", "")

con

Estrai_Indirizzi = Replace _
(Collegamento.Hyperlinks(1).Address, "mailto:", "")

(mancava un '=')

grazie comunque
marco