Hi!

Worksheet method:

Choose an empty column at the end of the database (don't leave gaps)
Suppose this is col DA
In DA1 put =mod(ROW(),2) (which evaluates to 0 in even rows and 1 in
odd rows)
Copy this down the length of your database.
Start Data Filter Autofilter and select 1 in col DA
Now select all cells (ctrl+A) followed by F5 Special Visible cells
only.
Paste to a new worksheet. That's half the job done.
Now do the same selecting 0 instead of 1.
You have 2 sheets satisfying your requirements. ? Dump the original

Alf