Create new workbook for each unique value in column A

[Human_doing]

Hi all,

Can anyone please help with the VBA to create a new workbook for each unique value in column A of a workbook? E.g. if column A is:

Variable
Ball
Dog
Cat

Then new workbooks are created for the 3 values below the header row? The number of values may be variable,

Many thanks in advance for any help,

 

[VoG]

Try Excel Explosion http://www.datapigtechnologies.com/freeware.htm

 

[Yahya]

Try this Human

Sub Test()
Dim LR As Long, cell As Range, wb As Workbook
LR = Range("A" & Rows.Count).End(xlUp).Row
For Each cell In Range("A2:A" & LR)
    Workbooks.Add
    Set wb = ActiveWorkbook
    wb.SaveAs Filename:="C:\" & cell.Value & ".xlsx"
Next cell
End Sub

HTH

 

[Human_doing]

Thanks to you both, very helpful,

Thanks