엑셀 자동 하이퍼링크 만들기(매크로)

Sub hyper()

Dim NameArea As Range
Dim AddressArea As Range

On Error GoTo g1: ' 범위 입력이 없을 경우 나감

Set NameArea = Application.InputBox("하이퍼링크 만들범위", Title:="범위선택", Type:=8)
Set AddressArea = Application.InputBox("주소범위", Title:="범위선택", Type:=8)

NameArea.Select

maxi = Selection.Count
cnt = 1

For Each c In AddressArea
If cnt > maxi Then

Exit Sub

Else

sitename = Selection(cnt)
sitenameAdd = Selection(cnt).Address
addss = ".\" & c
ActiveSheet.Hyperlinks.Add Anchor:=Range(sitenameAdd), Address:=addss, TextToDisplay:=sitename

cnt = cnt + 1

End If
Next

g1:

End Sub