Oops

Sorry forgot about the currency thing....


rng.Offset(3, 0).Value = Application.Count(Range("B1", rng))
rng.Offset(3, 0).Font.Bold = True
rng.Offset(3, 0).NumberFormat = "General"

If general doesn't do the job try swapping it for "Text"


--
Tristan
------------------------------------------------------------------------
Tristan's Profile: http://www.excelforum.com/member.php...o&userid=34061
View this thread: http://www.excelforum.com/showthread...hreadid=548773