hmmm, got it working. For some reason it wouldn't work when I had it
as a module, so I moved it to a sheet.

Works perfectly, Cheers Nick

Dewey




Dewey wrote:

Hey Nick,

'DataObject' isn't a valid Dim so it errors out.

Any otherway??

Dewey


NickHK wrote:

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