VBA code is slowing down the worksheet function

Hi,

This code will run whenever you select any cell on the sheet which is very inefficient. It would be better as a Worksheet_Change event and probably restricted to only running when a value in column B is changed.

Should the serial number remain the same for a row once it has been allocated? Your original code would change the serial numbers if, for example, you deleted a row or sorted the data- is that what you want, or do you want the numbers to remain the same and assign the next highest value to a new row?

I fear that does not answer my question really. Consider this scenario-
1. You have this data set

	A	B
5	1	Item1
6	2	Item2
7	3	Item3
8	4	Item4
9	5	Item5

2. You then delete row 7 (Item3)
3. Your current code would produce this

	A	B
5	1	Item1
6	2	Item2
7	3	Item4
8	4	Item5

and the next new row would be allocated number 5.

Is that what you want, or do you want this to be the result

	A	B
5	1	Item1
6	2	Item2
7	4	Item4
8	5	Item5

and the next new row would be allocated number 6?

Then I believe this will do the trick

Please Login or Register  to view this content.

and it will only run when you change something in column B.