Hi Cindy

One way
Insert a new row to the sheet.
In A1 type 1, B1 2, mark A1:A2 and drag across by the fill handle to
create an ascending series of numbers for the full range of columns
utilised on your sheet.
Mark the full range of Columns
DataSortOptionsSort left to rightSort row2:2
This will move all the blank columns to the far right.
Delete columns beyond your last "real" column
Repeat Data Sort but use row 1:1 to get data back into original column
order.

If you turn on the macro recorder as you do this, then you can quickly
use the same routine for each of your other sheets.


--
Regards

Roger Govier


"Cindy C" <Cindy wrote in message
...
I exported data from QuickBooks, but about every other column is blank.
I'm
having trouble sorting the data with all of the empty columns. Since I
have
12 different worksheets with this problem, I really would like to know
how to
take out all of the empty columns at one time without having to
highlight and
delete each column separately.