If I understand properly:

In sheet(1)

you neeed to name the current range as follows eg:

MyDatabase=Sheets(1).Range("$A1$A1:$P$40000")
Could be better if you Sort in ascending order Sheets(1) Column 1, if
Column(1) holds "events1"

then go to sheet(2)
select D1 and insert the following Formula:

Vlookup($A1,MyDatabase,2,false)
E1=Vlookup($A1,MyDatabase,3,false)
F1=Vlookup($A1,MyDatabase,4,false)
G1=Vlookup($A1,MyDatabase,5,false)

and so on until R1=Vlookup($A1,MyDatabase,15,false)


then copy from D1 to R1000
and paste this in sheet(1) as value, down of MyDatabase Range.

see You!


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!