<div>
1) Do you want to use VBA or Excel formulas?<br />
2) What exactly is With Found Cell? Is it the result of a find? Is it the selected one? If it's a find, how did you find it? With VBA, or manually?<br />
Please be a bit more explicit so we can help you better :)
</div>


1) Do you want to use VBA or Excel formulas?
2) What exactly is With Found Cell? Is it the result of a find? Is it the selected one? If it's a find, how did you find it? With VBA, or manually?
Please be a bit more explicit so we can help you better :)

<div>
Something like this maybe?<br />

<pre><code id="code-8198081">Public Sub deleterowsabove()
Dim l As Long

For l = 1 To ActiveCell.Row - 1
    ActiveSheet.Rows(1).Delete
Next l

End Sub</code></pre>
</div>


Something like this maybe?


Public Sub deleterowsabove()
Dim l As Long

For l = 1 To ActiveCell.Row - 1
    ActiveSheet.Rows(1).Delete
Next l

End Sub

<div>
It should be Rows(l). And you don't need to delete one by one. A simple:<br />
Range(&quot;A1:A&quot; &amp;&nbsp;ActiveCell.Row - 1).EntireRow.Delete<br />
would do it all at once.
</div>


It should be Rows(l). And you don't need to delete one by one. A simple:
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
would do it all at once.

<div>
Something like:<br />

<pre><code id="code-20-36327957-1">   Range(&quot;A1&quot;, FoundCell.Offset(-1)).EntireRow.Delete</code></pre>
</div>


Something like:


   Range("A1", FoundCell.Offset(-1)).EntireRow.Delete

<div>
Sorry was away there, Rorys was the one that worked for me.<br />
<br />
Thanks Everyone<br />
<br />
Seamus
</div>


Sorry was away there, Rorys was the one that worked for me.

Thanks Everyone

Seamus

<div>
<div class="content wysiwyg-content">
Hi, i have some code that finds a cell.<br />
<br />
What i want to do is say With Found Cell, delete everything above it, so all rows above that cell<br />
<br />
What code would i use?<br />
<br />
Thanks<br />
Seamus
</div>
</div>


Hi, i have some code that finds a cell.

What i want to do is say With Found Cell, delete everything above it, so all rows above that cell

What code would i use?

Thanks
Seamus

With Found Cell

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