Paradox with constants
I have a set of procedures in which I use the following code:
Counter = 1
Do
If Counter <= 5 Then
Cells(9, 3 + (Counter * 2)).Font.Name = fnt(Counter)
Cells(9, 3 + (Counter * 2)).Font.Size = (Counter * 2) + 30
Cells(9, 3 + (Counter * 2)).Font.ColorIndex = (Counter * 2) + 3
Cells(9, 3 + (Counter * 2)) = Mid(MyString, Counter, 1)
End If
If Counter = 6 Then
Cells(11, (Counter * 2) - 6).Font.Name = fnt(Counter)
Cells(11, (Counter * 2) - 6).Font.Size = (Counter * 2) + 30
Cells(11, (Counter * 2) - 6).Font.ColorIndex = (Counter * 2) + 5
Cells(11, (Counter * 2) - 6) = Mid(MyString, Counter, 1)
End If
Counter = Counter + 1
PlayExclam
WaitTime
Loop Until Counter = 10
This code works fine as long as I declare the variable fnt(1 thru n) within
the procedure. Example fnt(1) = "Arial" . When I try to make this a public
constant so it will be recognized in more than one procedure, the compiler
balks at the parentheses and if I remove the parentheses the counter will nor
concatenate.
What am I missing here?
|