I am just learning how to program in Excel. I am having a bit of
difficulty doing calculations on variables. Below is some code I have
created. The first procedure works fine but I get an error when I run
the second procedure. The counter might actually be less than or equal
to 30. When I finish the code, I am going to use an input box to get
the maxinum number for the counter. Any suggestions you could give
would be much appreciated. I'm think that the code probably has a very
fundamental flaw but I can't figure it out.

Sub test()
Public testme(1 To 30) As Integer
For counter = 1 To 30
Range("B1").Select
testme(counter) = Selection.Offset(counter, 0)
Next counter
End Sub

Sub test2()
For counter2 = 1 To 30
If testme(counter2) = 1 Then testme(counter2) = testme(counter2) - 1
MsgBox counter2
Next counter2
End Sub