Loop Through Open Xcel Workbooks

Hi pablowilks, the following should do the trick

Sub LoopThroughOpenWorkbooks()
    
    Dim wb As Workbook
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    For Each wb In Workbooks
        For Each ws In wb.Sheets
            If ws.Range("A1").Value = "August" Then
                ws.Range("A1").Interior.Color = 255
            ElseIf ws.Range("A1").Value = "September" Then
                ws.Range("A1").Interior.Color = 15773696
            End If
        Next ws
    Next wb
    Application.ScreenUpdating = True
    
End Sub

Setting the Applicatioin.ScreenUpdating to False at the beginning prevents the screen from "flickering" while changes are being made to the worksheet.

Hi pablowilks,

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.