Публичный массив

[KaSS]

Почему вот так :

Public arrTest(10) As String


Public Sub fnArrIn()
arrTest(1) = "100"
arrTest(2) = "200"
Cells(1, 1) = arrTest(1)
End Sub

Работает, а так:

Public MasCountPercentPremium() As String
Public str_count_percent As String
Public str_book As String
Public num_row As Integer, num_col As Integer
Public i As Integer, j As Integer

Public Sub RecordMas()
str_book = ActiveWorkbook.Name
str_book = Left(str_book, InStrRev(str_book, ".") - 1)
'
str_count_percent = "Расчет % премии"
num_row = Workbooks(str_book).Sheets(str_count_percent).Cells.SpecialCells(xlLastCell).Row
num_col = Workbooks(str_book).Sheets(str_count_percent).Cells(3, Columns.Count).End(xlToLeft).Column
'
ReDim MasCountPercentPremium(3 To num_row, 1 To num_col)
'
For i = 3 To num_row
    For j = 1 To num_col
        MasCountPercentPremium(i, j) = Workbooks(str_book).Sheets(str_count_percent).Cells(i, j)
    Next j
Next i

End Sub

Пишет ошибку, вроде как массив не может быть публичным?

[The_Prist]

Может код расположен в модуле листа? в модулях листов только нельзя Public константы и переменные объявлять. Максимум переменные уровня модуля.

[KaSS]

Сообщение от The_Prist

Может код расположен в модуле листа? в модулях листов только нельзя Public константы и переменные объявлять. Максимум переменные уровня модуля.

Спасибо, да, он там и расположен. Переделаю. Спасибо