thanks for the reply.
My goal is to have each of the 4th cell values in sequencial order.

If i need to delete some rows i want the values in each 4th cell to adust
accordingly.
At present if i delete rows, i then need to (depending what rows) manually
adust the values to be in sequence with the one above the deleted rows.

My thinking would be something like:

dim rng as Range
set rng = array.Range(A24,A32,A36......A280)
If Previous previous rng value <"", then previous rng.value +1
next


Corey....



"JLGWhiz" wrote in message
...
Corey, I just want to see if I understand what you are after. First of
all,
it is understood that if you delete A28:A31 the old A32 becomes A28 and
the
same with any other rows that are deleted, the next row after the deleted
series will become the row number of the first row of the deleted series.
With that understanding, you then want to maintain a consecutive series
from
1 to Ubound for the remaining every fourth cell in column "A". Have I
covered it?

"Corey" wrote:

I have some rather involved code that i want to add a stpe to.
I want to have the worksheet to always check to see that betwen cells
(A24:A280), but not all cells between only every 4th cell.
IE. A24,A28,A32 etc.
I want a code to make sure, in the instance that i delete rows between
say
A28:A31, then i want to he code to look at the last value in the
range(say
A24),
and add 1 to the value and place it in cell A32.

Example:
A24 = 1
A28 = 2
A32 = 3
A36 = 4

If i delete the rows from A28:A31.
A32 needs to change from a value of "3" to a value of "2",
and A36 from 4 to 3 etc....
which is 1 more than the previous.
Hope i am explaining this clearly.
Any idea's?
Corey....