Macro per estrazione di Hyperlink da multi hyperlink texts

Salve ho un serie di celle in #Calc che sono dei nomi con collegato un hyperlink.
devo estrarre questo link e copiarlo nella cella accanto.
Ho trovato questa macro solo per Excel, che non funziona su Calc, mi potreste aiutare?
ecco il testo macro di excel

Sub ExtractHL()
Dim HL As Hyperlink

For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offste(0,1).Value=HL.Address

End Sub

Grazie