Create multiple workbooks with multiple sheets from a list

Hello,

I am looking for a way to create multiple workbooks(starting in column B2) and for each workbook a list of sheets(starting in column C2)

Example:

1 Workbook Sheet
2 Fruit apple
3 Fruit oranges
4 Fruit bananas
5 Vegetable carrot
6 Vegetable spinach


Any help or direction is appreciated. Thank you

Thank you for you reply.

I had an overflow error on line 'For i = 2 To bottomB' so I changed 'Dim i As Long, n As Long' and when I ran, I discovered I have sheet names that are longer than 31 chars. I will sort through my table and attempt to edit those accordingly and retest.

Another concern I have is whether or not this will check for already created workbooks. What will happen if I run this on the same sheet twice?

This code seems to add all of the sheets to 1 workbook.
Also, I got the same overflow error for i and n, so I changed i and n to 'As Long' in order to step through.

To elaborate, when done I will should have several workbooks with a varied amount of sheets for each.