Dim rng as Range
set rng = cells(rows.count,1).End(xlup)(2)

now use rng. It is the cell in column A on the row for the totals.

--
Regards,
Tom Ogilvy


"parteegolfer"
wrote in message
news:parteegolfer.23z1ob_1141184102.6927@excelforu m-nospam.com...

I am trying to count dates in column A and at the end of every work week
(monday thru Friday) automatically enter "Weekly Totals" in the row
below the last date of the week in column A

EXAMPLE:

Example:

Date
01/01/06
01/01/06
01/02/06
01/03/06
01/03/06
Weekly Totals
01/08/06
01/09/06
01/10/06
01/11/06
01/11/06
01/12/06
Weekly Totals

Can anyone Help?


--
parteegolfer
------------------------------------------------------------------------
parteegolfer's Profile:
http://www.excelforum.com/member.php...o&userid=31951
View this thread: http://www.excelforum.com/showthread...hreadid=517623