What is a good way to create a variably sized group to be looped over in Excel 2003?

For Each ListItem in List
    Run the procedure on the text in ListItem.Value
Next ListItem

Dim Counter 'module level '

Sub RunSomeProc()
    Counter = 0
    '1st test '
    SomeProc

    '2nd Test skipped items'
    For Each c In Range("c1:c" & Counter)
        SomeProc
    Next

End Sub

Sub SomeProc()
For Each c In Range("NamedRange1")
    If SomeTest=SomeVal Then
        'Write to 2nd test range '
        Range("C1").Offset(Counter, 0) = c 'Value of cell'
        Counter = Counter + 1
    End If
Next
End Sub

For each item in Sheets("Sheet1").Range("Range1")
    Do stuff
Next item

For each item in Sheets("Sheet1").Range("Range1")
    Do stuff
Next item