Sorry, missed a bit. Try this instead


Worksheets("Sheet2").Range("A4").Value = rng.Columns(1). _
SpecialCells(xlVisible).Count - 1

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"pauluk " wrote in message
...
Bob thanks for this but one problem now.

Instead of the value in the cell being say 4 it is given me the
following 65521

Can you help?


---
Message posted from http://www.ExcelForum.com/