DataObject is part of the MSForms library, so you need to add a reference.

NickHK

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