How can I pass an Array so I can get the verable count?

[USAMax]

I have a routine that counts variables but I have to pass a string so it knows which one to test. There has to be a better way.

Private Function ArrayVariableCount(Arr As String)
    Dim nonEmptyElements As Integer, i As Integer           '
    nonEmptyElements = 0: i = 0                             '
    If Arr = "SOA" Then                                     '
        For i = LBound(SOA) To UBound(SOA)                  '
            If Not SOA(i) = "" Then                      '
                nonEmptyElements = nonEmptyElements + 1     '
            End If                                          '
        Next                                                '
    Else                                                    '
        If Arr = "COA" Then                                 '
            For i = LBound(COA) To UBound(COA)              '
                If Not COA(i, 0) = "" Then                  '
                    nonEmptyElements = nonEmptyElements + 1 '
                End If                                      '
            Next                                            '
        End If                                              '
    End If
    ArrayVariableCount = nonEmptyElements                   '
End Function

 

[shg]

I noticed in the tags you place around your code, you use "[ noparse]" and its slashed companion... what do those tags do?

My attempt to get the board to leave my line breaks alone. Didn't work.

 

[Rick Rothstein]

My attempt to get the board to leave my line breaks alone. Didn't work.

Oh, okay, I was just wondering, but since it didn't work, I'll just forget I saw it.

 

[USAMax]

Hello Rick, are you available offline for a little trouble shooting?