CountA formula

[vba317]

I want to set up an array but as a precursor to setting the bounds of the array I want to count the amount of variables in the H column.

This is what I have so far.

Sub DefineArray()
Dim LR As Long
Dim LowValue As Double

 LR = ActiveSheet.UsedRange.Rows.Count

 LowValue = Application.WorksheetFunction.CountA(Range("H2:H & LR"))

End Sub

 

[SkipVought]

Hi,

The count of VALUES in column H...

Sub DefineArray()
Dim LR As Long
Dim LowValue As [b]Long[/b]

 LR = ActiveSheet.UsedRange.Rows.Count

 LowValue = Application.WorksheetFunction.CountA(Range("H:H"))

End Sub

or

Sub DefineArray()
Dim First As Long
Dim Last As Long

 With ActiveSheet.UsedRange.Rows
    first = .row
    last = first + .rows.count - 1
 End with
End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}