Adam,

Sorry about that...
Also I had a typo, used x-1000 instead of x=1000

For x = 1000 to 1 step -1
your code here
Next

note that 1000 is my number. You can replace it with your own
or before the For ..... Next loop

lrow finds the last entry in column A, change to suit your needs.

Dim lrow as long

lrow = Cells(Rows.Count, "A").End(xlUp).Row

For x = lrow to 1 step -1

steve

"Adam Ochs" wrote in message
...
Thank you Steve

Where the heck do I put that in my code?
I am trying now but so far no luck.

Adam
-----Original Message-----
Adam,

For x - 1000 to 1 step -1

Next

steve

"Adam Ochs" wrote in message
...

Thanks Bob

I will try to figure out how to get my code to run from
the bottom as that makes the most sence.

Adam


.