# 하이퍼링크 생성 방법
: 아래 소스와 같이 'create_HLink' 매크로 생성 후, URL 정보가 있는 셀을 범위지정하고 'create_HLink' 매크로 실행
Sub create_HLink()
   
  Dim C As Range
   
  For Each C In Selection
    If Not IsEmpty(C) Then
      C.Hyperlinks.Delete
      ActiveSheet.Hyperlinks.Add Anchor:=C, Address:=C.Value, TextToDisplay:=C.Value
    End If
  Next C
   
End Sub



# 하이퍼링크 제거 방법
: 아래 소스와 같이 'delete_HLink' 매크로 생성 후, URL 정보가 있는 셀을 범위 지정하고 'delete_HLink' 매크로 실행
Sub delete_HLink()

  Selection.Hyperlinks.Delete

End Sub




+ Recent posts