Цикл условного форматирования ячеек в диапазонах на нескольких листах

Question

Я пытаюсь условно отформатировать ячейки на нескольких листах.Размер диапазона варьируется в зависимости от листа (и, возможно, месяц к месяцу).Каждый лист будет иметь заголовок, и число столбцов будет отличаться, но данные для форматирования всегда будут начинаться с A6.

Я успешно выбрал последнюю ячейку на каждом листе и успешно отформатировал несколько ячеек накаждый лист.Однако, когда я пытаюсь объединить шаги, у меня ничего не получается.

Sub comfor()
Dim ws As Worksheet, LstR As Range
For Each ws In ActiveWorkbook.Sheets
  Set LstR = ws.Range("A6").SpecialCells(xlLastCell)
       For Each cell In LstR
         If cell.Text = "Complete" Then
            cell.Font.Color = 5287936
            cell.Replace What:="Complete", Replacement:="R"
            cell.Font.Name = "Wingdings 2"
        End If
        Next cell
  Next ws
End Sub

Спасибо!

Answer 1

как то так (не проверено)

Sub comfor()
    Dim ws As Worksheet, cell As Range

    For Each ws In ActiveWorkbook.Sheets

       For Each cell In ws.range(ws.range("A6"), _
                                 ws.Range("A6").SpecialCells(xlLastCell)).cells
           With cell  
               If .Text = "Complete" Then
                   .Font.Color = 5287936
                   .Value ="R"
                   .Font.Name = "Wingdings 2"
               End If
           End with

        Next cell
    Next ws
End Sub