Jonas

Public declarations do not go inside macro's

It is also a good idea to declare all variables that you wish to use

I suggest having a look at http://www.cpearson.com/ especially
http://www.cpearson.com/excel/variables.htm

In regards to your code try this

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

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

You can use the same variables names within different macros
as an example

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

Sub test2()
Dim counter As Integer
For counter = 1 To 30
If testme(counter) = 1 Then testme(counter) = testme(counter) - 1
MsgBox counter
Next counter
End Sub

If you need to declare a public variable then it would be done as

Public testme(1 To 30) As Integer

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

Sub test2()
Dim counter As Integer
For counter = 1 To 30
If testme(counter) = 1 Then testme(counter) = testme(counter) - 1
MsgBox counter
Next counter
End Sub


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=518097