How to build a Macro which can split data among Worksheets in Excel

[$horizon$]

I would like to create a macro that will automatically create a worksheet based on name. For example, if I have a file of sales data by sales rep, how can I create an individual worksheet for each sales rep without copying and pasting the data.

[Essien]

Try the following code, this might help you :

Sub addshets()
For Each c In Range("a2:a5")
On Error Resume Next
Sheets.Add after:=Sheets(Sheets.Count): ActiveSheet.Name = c
Next c
End Sub

[Shurod]

I am not sure about splitting the data among different worksheets, but I can provide a Macro which can help you to split data among columns. Hope by modifying it you can

get the result which you are expecting.

Range ("A1"). Select 
 Application.ScreenUpdating = False 
 'Running the macro 
 Do While Not IsEmpty (ActiveCell) 
 "First we look at which cell we are, 
 'To return to her once tidy row 
 dondeestoy = ActiveCell.Address 
 'Decompose the string into substrings, 
 'To which indicate the delimiter "#" 
 ActiveCell = Replace (ActiveCell, "/", "#") 
 'ActiveCell = Replace (ActiveCell, "'", "#") 
 'ActiveCell = Replace (ActiveCell, "" "" "#") 
 data = Split (ActiveCell, "#") 
 For i = 0 To UBound (data) 
 'We each data array in a column 
 ActiveCell = data (i) 
 'We move to the adjacent column (at right) 
 ActiveCell.Offset (0, 1). Select 
 Next 'continue with the loop 
 'We are back where we were initially 
 Range (dondeestoy). Select 
 'Pass to the next row, and go back to the loop 
 ActiveCell.Offset (1, 0). Select 
 Loop 
 'Show all over again 
 Application.ScreenUpdating = True 
 End Sub