View Single Post
  #7   Report Post  
Byron
 
Posts: n/a
Default

What if I had a column of a hundred or so entries that had 8 or 9 of
categories in it and wanted to have one worksheet that represents of each
category. Ideas?

"Rowan" wrote:

One way would be to use a macro. If you have a unique list of categories in
column A then something like this should work:

Sub lime()
Dim i As Long
Dim ws As Worksheet
Dim tSht As Worksheet
On Error Resume Next
Set tSht = ActiveSheet
For i = 1 To tSht.Cells(Rows.Count, 1).End(xlUp).Row
Set ws = Sheets.Add
ws.Name = tSht.Cells(i, 1).Value
Set ws = Nothing
Next i
On Error GoTo 0
End Sub

Hope this helps
Rowan

"Byron" wrote:

I am looking for an efficient way to add and name multiple worksheets. I
have a sheet with multiple categories which I must then split into new
worksheets. Any Ideas would be appreciated.