Create new sheets

[upwordz]

I have an excel sheet (version 2010) with 359 company names in col A. I need to create a sheet for each of those names. I have been doing this manually and I've completed 129 so far but this is super tedious!

Is there an easier way for me to do this? I've never written a VBA script or a macro but I do know some programming languages so I'm pretty fearless.

 

[Trevor G]

This code will do what you want, but you are only creating the worksheet nothing more?

Sub createSheet1()
Dim MyCel As Range, MyRange As Range

Set MyRange = Sheets("sheet1").Range("A2")
Set MyRange = Range(MyRange, MyRange.End(xlDown))
For Each MyCel In MyRange
Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = MyCel.Value ' renames the new sheet
Next MyCel
End Sub

 

[upwordz]

Thanks Trevor, that's correct. I am manually screen scraping table data from a UK website which is not consistent in how they present their data. Sometimes it is structured as in the example I linked to and other times it has to be fix width delimited or worse. This will save me a good bit of time! Cheers.

 

[Trevor G]

Happy to help. Thanks for reply.

 

[upwordz]

In thinking about this a little further, I am using the same 5 COL header row for all sheets. Is that easy to add?

Am I correct in assuming the following:
1. I replace sheet1 with the name of the sheet that contains the company names?
2. I replace A2 with the cell for the next company I need to do next? (in my case that would be A178)
3. I leave everything else alone?

Cheers,
Darren

 

[upwordz]

Nevermind, I answered all my questions and took care of the COL header row.