Adding and naming new worksheets
I have a worksheet that has 200-300 rows each falling into one of 8-10
categories. I am trying to find a way to create new worksheets for each of
the 8-10 categories, and then name them from the column that these catefories
are located.
Rowan from another post suggested:
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
I thing this will work, I just need a way to tell this macro to only pick
one of each of the categories in the column and name a new worksheet.
Any ideas?
Thanks,
Byron
|