title: VBA Insert page break where cell is specified value
body: <p>I need to insert multiple page breaks on a sheet after every cell that is a specified value.  I have a piece of code but currently nothing happens</p>
  
  <pre><code>Statement.Activate
  Dim c As Range
  Dim FirstAddress As String
  
  Set c = Columns("A").Find(What:="Please enter your Client Ref  on the reverse", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
  If Not c Is Nothing Then
  FirstAddress = c.Address
  
  Do
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=c.Offset(1)
  Set c = Columns("A").FindNext(c)
  Loop While Not c Is Nothing And c.Address &lt;&gt; FirstAddress
  End If
  </code></pre>
  
  <p>Can anyone see why this isn't working?</p>