Multiple Sheet Conditional Formatting With VBA

[colinh]

Hello All,

I was wondering if I could get some help on conditional formatting of my workbook?

I have in my workbook a tab called - START - then I have lots of tabs after (100 plus) and they are all the same template wise but obviously have different data in them. I then have a tab at the end called -END -.

So all the tabs between -START - and - END - the cells I13 to I29 need to be conditional formatted to white text if the value is less than or equal to 0.

I am working on the basis if I remove tabs or copy tabs the formatting will be carried onwards as long as they are in between the start & end named tabs. This will also help as I don't want to have to format the 100 plus tabs I already have individually.

Many thanks for you help.

 

[fadee2]

hi colinh,
try the below in a standard module

Private Sub h()
Dim wk As Worksheet
  For Each wk In ThisWorkbook.Worksheets
    If wk.Name <> "Start" And wk.Name <> "End" Then
        For i = 13 To 29
            If Cells(i, 9) <= 0 Then
                Cells(i, 9).Font.Color = vbWhite
            End If
        Next i
    End If
  Next wk
End Sub

since it is concerns more than 100 sheets, I would suggest making a copy of your workbook and then executing the code above, just to be on the safer side.

HTH...