Hi
try something like the following:
sub foo()
dim ret_value
dim rng as range
set rng = Workbooks("Projekt TFunction").Worksheets
("data").Range("case")
ret_value = application.worksheetfunction.COUNTA(rng)
msgbox ret_value
end sub

-----Original Message-----
I want to count the number of cells in the range 'case'
that contains
numbers... (or contains anything for that matter...)


This one gives 'error 6 overflow' maybe because it counts
all cells in
the range.

iTest = Workbooks("Projekt T
Function").Worksheets("data").Range("case").Cou nt

Thanks

Steff


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

.