Job, using PaulD's example, this should work:

Sub Macro1()
Dim MyData As DataObject
Set MyData = New DataObject

MyData.SetText
WorksheetFunction.Sum(Selection.SpecialCells(xlCel lTypeVisible))
MyData.PutInClipboard

End Sub

HTH--Lonnie M.