Dewey,
Here's one way:

Private Sub CommandButton3_Click()
Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText Application.Sum(Selection)
MyData.PutInClipboard
End Sub

NickHK

"Dewey" wrote in message
oups.com...
Hi,

I'm sure its simple but I can't seem to work it out. I need a macro
that sums the selected cells and copies it to the clipboard.

Any help would be greatly appreciated.

Cheers

Dewey