Need to create multiple excel workbooks based on the list of names in Column A using a macro

[ms48210]

Hi

Can someone help me with a macro to create excel files based on the list of names present in 'Column A' in an excel?

 

[JLGWhiz]

Sub makeWB()
Dim wb As Workbook, c As Range
With ActiveSheet
	For Each c In .Range("A1", .Cells(Rows.Count, 1).End(xlup))
		If c <> "" Then
			Set wb = Workbooks.Add
			wb.SaveAs c.Value & ".xlsx"
			wb.Close False
		End If
	Next
End With
End Sub