Deleting color from 2 worksheets

[Darren Smith]

I need to delete color from 2 sheets with the same command button.
How is this possible with my code?

         Private Sub Delete_Color()

                Dim ws As Worksheet
                Dim rng As Range
                
                For Each ws In ThisWorkbook.Worksheets.Count
    
            If ws.Name <> Trim("Job Card Master") Then
            ws.Range("A13:Q61").Cells.Interior.Color = xlNone
            ws.Range("A66:Q122").Cells.Interior.Color = xlNone
            ws.Range("A127:Q183").Cells.Interior.Color = xlNone
            ws.Range("A188:Q244").Cells.Interior.Color = xlNone
            ws.Range("A249:Q299").Cells.Interior.Color = xlNone
                rng.Font.ColorIndex = 1
                rng.Font.Italic = False
                rng.Font.Bold = False
            End If
            
       If ws.Name <> Trim("Job Card with Time Analysis") Then
            ws.Range("A13:Q61").Cells.Interior.Color = xlNone
            ws.Range("A66:Q122").Cells.Interior.Color = xlNone
            ws.Range("A127:Q183").Cells.Interior.Color = xlNone
            ws.Range("A188:Q244").Cells.Interior.Color = xlNone
            ws.Range("A249:Q299").Cells.Interior.Color = xlNone
                rng.Font.ColorIndex = 1
                rng.Font.Italic = False
                rng.Font.Bold = False
            End If
      Next ws
  

              End Sub

 

[Fluff]

What are the names of the two sheets?

 

[Darren Smith]

Job Card Master and Job Card with Time Analysis

 

[Fluff]

Ok, how about

Private Sub Delete_Color()
   
   Dim ws As Worksheet
   Dim rng As Range
   
   For Each ws In ThisWorkbook.Worksheets(Array("Job Card Master", "Job Card with Time Analysis"))
      ws.Range("A13:Q61").Cells.Interior.Color = xlNone
      ws.Range("A66:Q122").Cells.Interior.Color = xlNone
      ws.Range("A127:Q183").Cells.Interior.Color = xlNone
      ws.Range("A188:Q244").Cells.Interior.Color = xlNone
      ws.Range("A249:Q299").Cells.Interior.Color = xlNone
   Next ws
End Sub

 

[Darren Smith]

Thanks for that works a treat

This is similar but for filling color?
How could I alter it to fill both sheets?

Sub colorAbove(rng As Range)
    Dim i As Long, rrg As Range
    Dim ws As Worksheets
   
For Each ws In ThisWorkbook.Worksheets(Array("Job Card Master", "Job Card with Time Analysis"))

    For i = 1 To rng.Rows.Count
        Set rrg = rng.Rows(i)
 
        If WorksheetFunction.CountA(rrg) = 0 Then
           
            If rrg.Offset(1).Cells(3) <> "" Then
               
                rrg.Interior.ColorIndex = 36
            End If
        End If
    Next i
    Next ws
End Sub

 

[Fluff]

As this is a totally different question, it needs a new thread.