Data validation of unique entries using VB

[Sinner]

I am using the below formula to create a validation list with unique
entries.

=IF(COUNTIF(O$7:O89,O89)=1,MAX(N$7:N88)+1,"")
-
-
-
-
Drag down

ABC is defined name for the list to be used for validation
=OFFSET(Data!$Q$8,0,0,MAX(Data!$N:$N),1)


I would like to have VB solution as I'm having lot of sheets.
Object is to take calculations to back end in order to save
calculation time & space.

 

[paul.robinson]

Hi
Solution to what?
Paul

 

[Sinner]

Hi Paul,

All these formulas doing calculation in code rather than in cell.