I have a workbook with one big worksheet and i want to seperate some
columns to new worksheets, is there a macro program that I can do
instead of copy & paste columns by myself, cuz i hv to repeat the
process a lot of time, say it's always going be be column B,C,D,E to
one worksheet, FGHI to the second, ect... not sure if i've said it
clearly. thanks for any input!

try

Sub copycolstonewsheets()
lc = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To lc
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "sht" & i - 4
Sheets("sheet1").Columns(i).Resize(, 4).Copy Range("a1")
i = i + 4
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
<(E-Mail Removed)> wrote in message
news:845ea21d-b20d-49fc-864d-(E-Mail Removed)...
>I have a workbook with one big worksheet and i want to seperate some
> columns to new worksheets, is there a macro program that I can do
> instead of copy & paste columns by myself, cuz i hv to repeat the
> process a lot of time, say it's always going be be column B,C,D,E to
> one worksheet, FGHI to the second, ect... not sure if i've said it
> clearly. thanks for any input!