VBA to hide cells on multiple sheet if cell equals

[whazzzzzupp17]

Hello, I created a code to hide columns if the cell in the first row contains "H".

I'm having trouble modifying this code to apply it to (3) other sheets. (data1, data2, data3)

How do I create this other than clicking each sheet and re-running the macro.

Sub Hide()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim H As Range

     For Each H In Range("A1:Z1").Cells
        If H.Value = "H" Then
            H.EntireColumn.Hidden = True
        End If
    Next H

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
End Sub

 

[alansidman]

If the only sheets in your workbook are as listed above then:

Option Explicit

Sub Hide()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim ws As Worksheet
    Dim H As Range
    For Each ws In Worksheets
     For Each H In ws.Range("A1:Z1").Cells
        If ws.H.Value = "H" Then
            ws.H.EntireColumn.Hidden = True
        End If
    Next H
    Next ws
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
End Sub