I would use the same approach Les, just put it in code.

Here is an example, with all the relevant data setup in constants to enable
easy res-etting

'constants to define data source
Const WB_NAME = "BS Accounts.xls"
Const WS_NAME = "Lynne"
Const WS_RANGE = "A1:A20"
Dim cUnique As Long
Dim sFormula As String
Dim sRange As String

sRange =
Workbooks(WB_NAME).Worksheets(WS_NAME).Range(WS_RA NGE).Address(, , , True)
sFormula = "SUMPRODUCT((" & sRange & _
"<"""")/COUNTIF(" & sRange & "," & sRange & "&""""))"

cUnique = ActiveSheet.Evaluate(sFormula)
Workbooks("newbook.xls").Worksheets("Sheet1").Rang e("A1").Value =
cUnique


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Les Stout" wrote in message
...
Thanks so much Bob, could you please help me with this. I need to do
this with code and insert the result in a cell in a new workbook with
the date next to it.

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***