title: Enhance code to run on all sheets in a workbook
body: <p>How can I change this code so it runs on all sheets of a workbook? It works well, just need it to run on all sheets. =)</p>
  
  <pre><code>Option Explicit
  Option Compare Text
  
  Sub HideColumns()
  
  Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Data")
  Dim MyCell As Range
  Dim HideMe As Range
  
  Application.ScreenUpdating = False
      For Each MyCell In ws.Range("A2:EA2")
          If MyCell &lt;&gt; "First Name" And MyCell &lt;&gt; "Age" And MyCell &lt;&gt; "Gender" Then
              If HideMe Is Nothing Then
                  Set HideMe = MyCell
              Else
                  Set HideMe = Union(HideMe, MyCell)
              End If
          End If
      Next MyCell
  
      If Not HideMe Is Nothing Then
          HideMe.EntireColumn.Hidden = True
      End If
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>