subscript out of range

[Bape}l{ka]

привет всем! )))

подскажите пожалуйста, что неправильно Т_Т не вижу

Sub
        ErrorCount = 0
With ActiveWorkbook.ActiveSheet
        For Roww = FirstRow To MaxRow
                        
            'задаем "пустые" ячейки в В.1
            If Not IsEmpty(.Cells(Roww, FirstCol1)) Or _
                    .Cells(Roww, FirstCol1).Value <> "." Or _
                    .Cells(Roww, FirstCol1).Value <> "0" Then

                If .Cells(Roww, FirstCol1).Value < vCondition Then
                        
                        
                        .Cells(Roww, FirstCol1).Interior.ColorIndex = 15  ' серый
                        Rows(Roww).Hidden = False
                        
                        For Colm = FirstCol To MaxCol
                            .Cells(Roww, Colm).Interior.ColorIndex = 255      ' ВОТ ТУТ ВЫДАЕТ "subscript out of range"
                            If CheckBoxZamena = True Then .Cells(Roww, Colm) = vZamena
                                                
                            'считаем строки с ошибками
                            If ErrorRows <> .Cells(Roww, Colm).Row Then CountErrorRows = CountErrorRows + 1
                            ErrorCount = ErrorCount + 1
                            'MsgBox Cells(Roww, Colm).Row & " ErrorRows=" & ErrorRows & " CountErrorRows=" & CountErrorRows
                            ErrorRows = .Cells(Roww, Colm).Row
                        Next Colm
    
                End If
            End If
        
         Next Roww
end with
End Sub

[nerv]

Сообщение от Bape}l{ka

привет всем! )))

подскажите пожалуйста, что неправильно Т_Т не вижу

.Cells(Roww, Colm).Interior.ColorIndex = 255      '

эт не правильно. Слишком большой индекс (насколько мне известно). Остальное не смотрел.

[Bape}l{ka]

nerv, спасибо большое!! я уж чво только не проверяла, а на это и внимания не обратила.. и откуда 255 только вылезло.. О.о