Определить адреса столбцов

[Ugin85]

Есть таблица(табель рабочего времени), в шапке которой - даты (напр. от 01.01.2013 до 31.01.2013). С помощью условного форматирования выходные дни выделяются жирным шрифтом.
Есть также макрос, который автоматически проставляет выходные для каждого сотрудника :

Sub Holidays()
Dim R1, R2 As Range
R = Range("E10:S10")

  On Error Resume Next

  For Each c In R
    If c.Font.Bold Then
    
        For i = 13 To 61 Step 2
        Range("E" & i).Value = "-"
        Next
    End If
  Next
  
End Sub

... но пока только в конкретном столбце.
Вопрос : как узнать адреса всех нужных столбцов? Заранее спасибо.

[DiemonStar]

вы лучше пример файла приложите и пример результата, который требуется получить

[IgorGO]

        For i = 13 To 61 Step 2
        c.offset(i-10,).Value = "-"

[Ugin85]

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

вы лучше пример файла приложите и пример результата, который требуется получить

Таблица - во вложении.

[IgorGO]

Sub Макрос8()
Dim R1, R2 As Range
  Set R1 = Range("E10:S10")
  'On Error Resume Next
  For Each c In R1.Cells
    If Weekday(c, 2) > 5 Then
      For i = 13 To 61 Step 2
      c.Offset(i - 10, 0).Value = "-"
      Next
    End If
  Next
  Set R1 = Nothing
End Sub

формат, заданный условным форматированием, бесполезно искать в форматах ячейки. Проверяйте ячейку на то же условие, что в условном форматировании записано

[Ugin85]

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

формат, заданный условным форматированием, бесполезно искать в форматах ячейки. Проверяйте ячейку на то же условие, что в условном форматировании записано

Ну конечно)) как я сам до этого не додумался Спасибо огромное!