더블 클릭 하면 하이퍼링크로 연결하는 방법이 있을까요?

'//더블클릭한 셀(Target)과 D열의 교집합이 없으면 종료. 즉, D열이 아닌 곳을 더블클릭하면 종료
  If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
 
'//Target의 셀 갯수가 1보다 클 때(여러 셀을 영역 선택했을 때) 종료
  If Target.Count > 1 Then Exit Sub
 
'//에러 발생시 ErrHandler로 이동 (D열의 빈 셀을 더블클릭 하거나 E열에 URL이 없는 경우 
링크를 열 수 없어 에러 발생하면 다음 명령 구문들은 무시하고 ErrHandler 라벨로 이동) 
  On Error Goto ErrHandler
 
'//시트 내에서 이벤트가 발생할 때 무한루프가 생겨 엑셀 다운되는 것 방지하기 위해 한 번만 
명령을 실행하라고 자동 Events를 중지시킴
  Application.EnableEvents = False
 
'//<strong>ThisWorkbook.FollowHyperlink "URL"</strong> 은 해당 URL을 기본 브라우저로 여는 명령입니다.
Target의 타입이 Range이므로 Cell.Next의 의미는 바로 오른 쪽 셀 즉, 여기서는 Target이 
D3면 Target.Next는 E3를 말합니다. 그래서 D3를 더블클릭하면 E3에 입력된 URL을 브라우저로 
여는 명령입니다.
  ThisWorkbook.FollowHyperlink Target.Next
 
'//에러가 발생했을 때 점프해서 이곳으로 이동함
ErrHandler:
 
'//이벤트를 한 번만 실행하라고 꺼놨던 걸 다시 복원시켜줘야 합니다. 이걸 빠트리면 다음에는 
더블클릭해도 아무런 동작을 안 합니다. 이벤트가 꺼져있기 때문이지요. 엑셀 전체에 영향을
주는 기본값을 변경한 것이기 때문에 반드시 기본값으로 복원해줘야 합니다. 
만약 중간에 에러가 발생하거나 사용자가 임의로 프러시저를 중단시켰을 때 
Application.EnableEvents = True가 실행되지 않은 상태라면 VBE 직접 실행창에 
아래 명령을 입력 후 엔터로 실행시켜줘야 다시 기본값인 True 상태가 됩니다.
  Application.EnableEvents = True
 
'//셀을 더블클릭하면 그 셀에 커서가 깜빡이면서 입력모드가 되는데 Cancel이 입력모드를
해제시킵니다 ESC처럼요. 이 구문을 주석처리한 상태로 D열의 셀을 더블클릭하면 브라우저에
해당 기사를 열고 엑셀에는 해당 셀에 커서가 깜빡거리는 상태로 남게 됩니다.
  Cancel = True