Copy worksheet X times based on Cell Values in Sheet [See added Example] :)

I have a workbook with a sheet called "data". In this sheet the data is placed in cell B12 to AD150. Column B has values from 1 to 138.

Now I made a worksheet which represents all the data of one row from the worksheet data. The name of that worksheet is called "1", the same value as the cell value in column B of that row.

I would like to have a macro which copies worksheet "1" as much as times as there are filled rows in column B in the worksheet "data". The names of the copied worksheets must be the same as the data in column B from the worksheet "Data".

Somebody who can handle this challange for me??


EDIT: now with example

Do you want to make the copy of sheet"1" with the same cells contents ?
Sheet"1" is for cell B12 ?
Does value"1" exists in column "B", if yes we will have twice sheet "1" and conflict ...!

Thanks this works great!!

Only one thing that bothers me now and that's when I make changes in the data sheet en run the macro again an error occurs. See pict
Attachment 662368

That's because the sheets with the names already exist. I editted it and now it works fine! Thanks for your help!!

Please Login or Register  to view this content.

Unfortunately the code does not work in the workbook I want to implement it in. After running the macro an error message shows up which says the name already exists. See attached pictures.

I cannot figure out what to change in the code.

Attachment 662373
Attachment 662374
Attachment 662375

[EDIT]: Found out myself: the data in my sheet was one row up, so I changed "i = 12 To lr" in "i = 13 To". Now it works fine!!

Thanks again for helping Jolivanus!