Dim item As New Collection \'collection will have numbers, the amount of which can change For x = 1 To item(count) counter = counter + x Next x