Excel hyperlinks

Kode 

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 15-04-2003 by Stefan Svensson

    Dim Tmp_s As String

    Columns("A:A").Select
    For Each hLink In Selection.Hyperlinks

    Tmp_s = SF_splitRight(hLink.Address, "\\ADMINI~1\\LOCALS~1\\KW_billeder")
    Tmp_s = "\\\\main\\KW_billeder" + Tmp_s
    hLink.Address = Tmp_s
    
    'Lige engang til fordi VBA er noget bæh som synes \\..\\ er det samme som \\blop\    
    Tmp_s = SF_splitRight(hLink.Address, "\\ADMINI~1\\LOCALS~1\\KW_billeder")
    Tmp_s = "\\\\main\\KW_billeder" + Tmp_s
    hLink.Address = Tmp_s
    
Next hLink

End Sub

Function SF_splitRight(ByVal Haystack As String, ByVal Needle As String) As String

    'SF_splitRight("   This is   my string   "," my s") returns "tring   "
    Dim i As Long

        i = InStrRev(Haystack, Needle, -1, vbTextCompare)
        If i = 0 Then
            SF_splitRight = Haystack
        Else
            SF_splitRight = Mid(Haystack, i + Len(Needle))
        End If

End Function

ER det samme UNC for alle der bare skal laegges til hyperlinket? Saa kan du jo bare arbejde med dem som strings...

Hvorfor vil du lave en makro?
Kan du ikke bare lave en søg og erstat?
Sæt den til at søge efter *\\KW_billeder og erstat med \\\\main\\KW_billeder