Can I assume that you want a new file created and named for each entry in
Column A?  Otto

This macro will do what you want.  I chose "C:\The Folder" as the path.
Otto
Sub CreateWorkbooks()
     Dim ThePath As String
     Dim rColA As Range
     Dim i As Range
     Application.ScreenUpdating = False
     ThePath = "C:\The Folder\"
     Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
     For Each i In rColA
           Workbooks.Add
           ActiveWorkbook.SaveAs Filename:=ThePath & i.Value & ".xls"
           ActiveWorkbook.Close
     Next i
     Application.ScreenUpdating = True
End Sub