title: Excel macro: how to ignore header row when checking columns
body: <p>This <code>HideEmptyColumns()</code> macro hides all columns that don't have any data.  How do I modify it so that it ignores the header row (row 1)?</p>
  
  <pre><code>Sub HideEmptyColumns()
    Dim Col As Range
    For Each Col In ActiveSheet.UsedRange.Columns
       Col.EntireColumn.Hidden = RangeIsEmpty(Col)
    Next Col
  End Sub
  
  Function RangeIsEmpty(R As Range) As Boolean
    Dim Cell As Range
    RangeIsEmpty = True
    For Each Cell In R.Cells
       If Cell.Value &lt;&gt; "" Then
          RangeIsEmpty = False
          Exit For
       End If
    Next Cell
  End Function
  </code></pre>