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

wrote in message
...
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!