You can try this one

Sub test()
Dim Aws As Worksheet
Dim ws As Worksheet
Dim I As Long

Set Aws = ActiveSheet

For I = 1 To 2500 Step 250
Set ws = Worksheets.Add
ws.Name = I & " to " & I + 249
Aws.Columns(I).Resize(, 250).Copy ws.Range("A1")
Next I

End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"BCLivell" wrote in message ...
Hi all-

I have a file in excel 2007 format that has 2214 colums and I need to put
into a format that can work with excel 2003. But my biggest barrier is excel
2003's colum limit.

Essentailly, I need a simple way to cut and past every 250 columns into a
seperate sheet.

Thank you!