You could just count the number of entries in column A with the
=NA()
formula:


Sub gsnu()
Dim r As Range, r2 As Range
RowCount = Cells(Rows.Count, "A").End(xlUp).Row
Set r2 = Intersect(ActiveSheet.UsedRange, Range("A:A"))
For Each r In r2
If r.Formula = "=NA()" Then
i = i + 1
End If
Next
MsgBox (i)
End Sub

so RowCount is the total
i is the number of #N/As
RowCount-i is the number without #N/A
--
Gary's Student


"Barb Reinhardt" wrote:

I have the following

RowCount = Cells(Rows.Count, "A").End(xlUp).Row

However, column A has several entries of #N/A with the function NA().

I need to count the number of entries in column A that are not NA and the
number of entries that ARE NA. How would I accomplish that?

Thanks