Function GetClipboard() Dim ie Set ie = CreateObject("InternetExplorer.Application") ie.Navigate("about:blank") GetClipboard = ie.Document.ParentWindow.ClipboardData.GetData("text") ie.Quit End Function Sub SetClipboard(strText) Dim ie Set ie = CreateObject("InternetExplorer.Application") ie.Navigate("about:blank") ie.Document.ParentWindow.ClipboardData.SetData "text", strText ie.Quit End Sub