Working with Windows clipboard is fairly straight forward, using the
DataObject exposed from MSForms. However, you can only work with the text
format. Unless Office2003 and up have added functionality ?

Private Sub CommandButton1_Click()
Dim DatObj As DataObject
Dim TempStr As String

Const TEXTFORMAT As Long = 1

Range("rngCopy").Copy

Set DatObj = New DataObject

With DatObj
.GetFromClipboard
If .GetFormat(TEXTFORMAT) = True Then
TempStr = .GetText
End If
.Clear
.SetText TempStr, TEXTFORMAT
.PutInClipboard
End With

Range("A20").Select
ActiveSheet.Paste

End Sub

There is the Windows API that will give you complete access to the Windows
clipboard in all formats, but that will require a lot more work to function
correctly.

In Excel 2000 only, you can work somewhat with the Office clipboard. Later
version have the clipboard on the Task Pane and is not accessible, AFAIK.
<Excel2K only
Private Sub CommandButton1_Click()
Dim ClipTBar As CommandBar
Dim i As Long

Const PASTEALL As Long = 2

Set ClipTBar = Application.CommandBars("Clipboard")

With ClipTBar.Controls
For i = 1 To .Count
Debug.Print .Item(i).Caption
Next

.Item(PASTEALL).Execute
End With

End Sub
</Excel2K only

Other than that maybe Paste somewhere temporarily and copy/cut from there,
if you cannot arrange your code to preserve the Clipboard and you need more
than just text.

NickHK

"tskogstrom" wrote in message
ups.com...
Hi,

I run Excel code initiated by worksheet_change events and some of them
kill the Clipboard content, making cut- and paste difficult.

I have however noticed that the clipboard in the Task pane still
contain the cut/copy content. Therefore, I want to add som code to
always restore the clipboard content from taskpane to Excel clipboard.
I will add the code in my worksheet_change event and run restore if
the content differ, I guess.

To start with - have anybody some code to suggest to transfere the
content between them?

Kind regards
Tskogstrom