Köprüler Çalışmıyor

[cundemirci]

Merhaba arkadaşlar , Excel deki çalışma sayfasındaki tüm köprüler alttaki hatayı veriyor. "..\..\..\Users\Hüseyin%20Eker\AppData\Roaming\Microsoft\Excel" e kadar silersek köprü çalışıyor , Ama sayfada baya bir köprü var bunların hepsini aynı anda nasıl kaldırabilirim yardımcı olursanız sevinirim.

..\..\..\Users\Hüseyin%20Eker\AppData\Roaming\Microsoft\Excel\FNSS\FNSS%20TEKLİFLER\Kutlu%20UMUNÇ\FNSS%20Mail%20Teklif%202018-291

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Kopru_Adres_Degistir()
    
    Dim a As Hyperlink
    
    For Each a In ActiveSheet.Hyperlinks
        a.Address = Replace(a.Address, "..\..\..\Users\Hüseyin%20Eker\AppData\Roaming\Microsoft\Excel", "")
    Next
            
End Sub