title: Get Excel Macro to AUTO run on sheet 2 when cell value changes in sheet 1
body: <p>I am trying to create a simple Excel quotation sheet for my boss, where it must hide the rows that dont apply is a certain cell value is = 0, but if it is = 1, then display in sheet 2.</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Me.Range("H5")) Is Nothing Then Macro
  End Sub
  
  Sub HURows()
  BeginRow = 17
  EndRow = 34
  ChkCol = 4
  
  For RowCnt = BeginRow To EndRow
      If Cells(RowCnt, ChkCol).Value = 1 Then
          Cells(RowCnt, ChkCol).EntireRow.Hidden = False
      Else
          Cells(RowCnt, ChkCol).EntireRow.Hidden = True
      End If
  Next RowCnt
  
  BeginRow = 37
  EndRow = 44
  ChkCol = 4
  
  For RowCnt = BeginRow To EndRow
      If Cells(RowCnt, ChkCol).Value = 1 Then
          Cells(RowCnt, ChkCol).EntireRow.Hidden = False
      Else
          Cells(RowCnt, ChkCol).EntireRow.Hidden = True
      End If
  Next RowCnt
  
  BeginRow = 48
  EndRow = 51
  ChkCol = 4
  
  For RowCnt = BeginRow To EndRow
      If Cells(RowCnt, ChkCol).Value = 1 Then
          Cells(RowCnt, ChkCol).EntireRow.Hidden = False
      Else
          Cells(RowCnt, ChkCol).EntireRow.Hidden = True
      End If
  Next RowCnt
  End Sub
  </code></pre>
  
  <p>Please can you advise me on how to get this macro to Automatically run on cell value changes....</p>