엑셀VBA 선택한 셀 내용 클립보드에 복사

Option Explicit
Sub 클립보드에내용만복사하기()
'Selection.Copy
'아래 내용은 여러줄 클립보드에서 넘길 때
'쌍따옴표와 줄바꿈을 없애는 코드이다.
 
    Dim objData As Object
    Set objData = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    objData.SetText Selection.Cells(1, 1)
    objData.PutInClipboard
    
'아래는 저절로 닫히는 메시지박스 코드이다
 
    Dim WSH As Object
    Set WSH = CreateObject("WScript.Shell")
    'WSH.Popup "복사되었습니다!", 1, "Title", vbInformation
      '1은 1초 시간이다.
    Set WSH = Nothing
End Sub