Dim MyCell As Range, MyRange As Range, Dim i As Integer
Set MyRange = Sheets("Summary").Range("w3")
Set MyRange = Range(MyRange, MyRange.End(xlDown))
For Each MyCell In MyRange
If MyCell.Value IS NULL
Sheets(Sheets.Count + 3).Name = i
Sheets(Sheets.Count + 3).Name = MyCell.Value ' renames the new worksheet
Next MyCell
Or something like this maybe, I didn't test it since you didn't give us anything to go off of or make any effort to solve it yourself.
http://en.kioskea.net/faq/27361-excel-a-macro-to-create-and-name-worksheets-based-on-a-list Kudos to this website for giving me a basis to go off of.