Create new worksheet from list and add data

[Prawn]

Hi all !

First of all thanks in advance for any help given.

So I have a master worksheet with a list of names in "column A" and data connected to those names in "column B"

I want the names from "column A" made into separate worksheets of the same name.

In column B I have data i would like copied and pasted into cell "A1" of the new worksheets created.

So "A1" from the master would be the name of the new worksheet and "B1" from the master would be pasted into cell "A1" in that new worksheet and so on...

 

[mohadin]

Sub test()
    Dim a, i
    With Sheets("Sheet1")
        a = .Cells(2, 1).Resize(.Cells(Rows.Count, "A").End(xlUp).Row - 1, 2)
        For i = 2 To UBound(a)
            Sheets.Add(After:=Sheets(Sheets.Count)).Name = a(i, 1)
            With ActiveSheet
                .Cells(1, 1) = Application.Index(a, i, 2)
            End With
        Next
    End With

 

[Prawn]

Hi Mohadin

Thanks for your reply but when i try and run this I get a "Compile error expected end sub."

 

[mohadin]

Sorry

Sub test()
    Dim a, i
    With Sheets("Sheet1")
        a = .Cells(2, 1).Resize(.Cells(Rows.Count, "A").End(xlUp).Row - 1, 2)
        For i = 2 To UBound(a)
            Sheets.Add(After:=Sheets(Sheets.Count)).Name = a(i, 1)
            With ActiveSheet
                .Cells(1, 1) = Application.Index(a, i, 2)
            End With
        Next
    End With
End Sub

 

[Prawn]

You are a star Mohadin works like a charm.

Thank you so much for your time and help!!

 

[mohadin]

You are very welcome
And thank you for the feedback
Be happy & safe