<div>
Magic!!<br />
<br />
Thanks Stephen<br />
<br />
Seamus
</div>


<div>
here it is<br />

<pre><code id="code-8150751">Sub delUp()
    Dim c1, c2
    Dim r As Range
    
    Set c1 = Cells(1, 1)
    Set c2 = c1.End(xlDown)
    Set r = Range(c1, c2)
    
    For Each c In r
      If InStr(c.Value, &quot;Dividend Breaks&quot;) &gt; 0 Then
        Range(c, c1).Select
        Selection.Delete Shift:=xlUp
        Exit For
      End If
    Next
End Sub</code></pre>
</div>


here it is


Sub delUp()
    Dim c1, c2
    Dim r As Range
    
    Set c1 = Cells(1, 1)
    Set c2 = c1.End(xlDown)
    Set r = Range(c1, c2)
    
    For Each c In r
      If InStr(c.Value, "Dividend Breaks") > 0 Then
        Range(c, c1).Select
        Selection.Delete Shift:=xlUp
        Exit For
      End If
    Next
End Sub

<div>
Thank you too HainKurt,<br />
<br />
Cheers,<br />
Seamus
</div>


<div>
<div class="content wysiwyg-content">
Hi,<br />
<br />
I need a sub that will loop through Col A until it finds the words &quot;Dividend Breaks&quot;<br />
<br />
Once it finds this, go one cell up and delete all the rows back up to the top<br />
<br />
E.G. if &quot;Dividend Breaks was on A327, the code would select A326 and delete to the top (A1)<br />
<br />
Thanks<br />
Seamus
</div>
</div>


Hi,

I need a sub that will loop through Col A until it finds the words "Dividend Breaks"

Once it finds this, go one cell up and delete all the rows back up to the top

E.G. if "Dividend Breaks was on A327, the code would select A326 and delete to the top (A1)

Thanks
Seamus

Loop+delete code

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.