Excel 2007 :: New File From Unique Listings

I'm having some trouble with a spreadsheet copy.

I have a spreadsheet listed out with 2-3 pieces of data per row like:

Mark - abc
John - def
John - ghi
Abby - xyz

etc.

What I need to do is create a new file for each unique string in column A. So for my brief example above, the "Mark" file would have 1 row, the "John" file would have 2 rows, etc. I also need to save the new file by the name in the first column (so "mark.xls"). (Conveniently, the table is sorted by the first column already.)

What I did was create a new worksheet for each row and then save that as my file. However I'm having problems getting my file to contain more than one row (I can get either the first or last row, but not all of them). I have about 30 spreadsheets to do this for, and each will create 80+ files... I'd really rather not do them by hand.

I'm on Excel 2007 if that matters.

I cobbled together some code I found in various places and this is what I have so far:

Code:

Sub CreateWorkbooks()
Dim newSheet As Worksheet, regionSheet As Worksheet, CurSheet As Worksheet
Dim cell As Object
Dim regionRange As String
Dim lngRows As Long
Dim CurRow As Long

[Code]...

(note that the comments are what it is supposed to be doing, not necessarily what it is doing)