엑셀 하이퍼링크 일괄 편집

 

기존 하이퍼링크 되있는 바꿀실 경로  (D:\)

바꾸실 경로  (C:\)

 

---------------------------------------

Sub 하이퍼링크편집()

For Each H In ActiveSheet.Hyperlinks

    TMP = H.Address

    TMP = Replace(TMP, "D:\", "C:\")

    H.Address = TMP

Next

End Sub