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" <dwight.vandiem@platypusau.com> wrote in message
> news:1155284609.950267.143720@h48g2000cwc.googlegroups.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
> >