move columns to separate worksheets
 

Hello,

I have large amounts of imported data that I would like to separate
onto indivual tabs based on the header name. Is there a non-manual
way to do so?

Thanks,
Amanda

move columns to separate worksheets
 

Sub test()

Set oldsht = ActiveSheet
ColCount = 1
Do While oldsht.Cells(1, ColCount) < ""
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = oldsht.Cells(1, ColCount).Value
Set newsht = ActiveSheet
oldsht.Columns(ColCount).Copy _
Destination:=newsht.Columns("A:A")

ColCount = ColCount + 1
Loop

End Sub


"amanda" wrote:

Hello,

I have large amounts of imported data that I would like to separate
onto indivual tabs based on the header name. Is there a non-manual
way to do so?

Thanks,
Amanda