Hi Ian,

Try:

Sub Tester03()
Dim dSum As Double

dSum = Application.Sum( _
Selection.SpecialCells(xlVisible))

MsgBox dSum

End Sub


---
Regards,
Norman



"Ian Elliott" wrote in message
...
Thanks for all help.
I need to put the value of the status bar sum into a variable. How do I
access the status bar sum value?
Someone said use Dsum=application.sum(selection), but I need the value in
the status bar, not what is selected (I am using autofilter).
Thanks.