How to make font invisible (white on white) in particular cells across all pages except one

[Carlos Ruano]

Hi,

I have a workbook with about 30 sheets. I would like to make the font in R1:U1 invisible across all sheets except the first one. The name of the first sheet is:

"NOH402 - All Results-SI"

How would I go about writing code to achieve this?

Thank you!
Carlos

 

[Chihiro]

Something like below. Adjust color as needed.

Sub Test()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "NOH402 - All Results-SI" Then
        With ws.Range("R1:U1")
            .Interior.Color = vbWhite
            .Font.Color = vbWhite
        End With
    End If
Next
End Sub

 

[Carlos Ruano]

Thank you!!! There is so much to learn!