цикл с ActiveCell

[Bape}l{ka]

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

есть цикл с ActiveCell, но он почему-то не работает, подскажите в чем ошибка пожалуйста

    Cells(FirstRow, FirstColB).Activate
    i = ActiveCell
    
    For Each i In bibl.Cells
        If i.Font.Color <> vbBlue Then
            ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
        Else
            Call FiltColor__.FiltTextColor
        End If
    Next i

[Bape}l{ka]

фух.. в итоге код видоизменился до:

    For Each i In bibl.Cells
        If i.Font.Color = vbBlue Then
            i.Select
            Call FiltColor__.FiltTextColor
            Exit For
        End If
    Next i

теперь вроде работает))
долго мучилась =ь