macro to list created tabs on to a worksheet

[MATEAPOT]

I have adapted this code to create tabs in my workbook.i need to make it display the created tabs in a worksheet on the workbook.is this possible?



With ActiveSheet
lngLastRow = Range("A" & Rows.Count).End(xlUp).Row
For lngLoopCtr = 1 To lngLastRow Step 1
strNewSheetname = Sheets(ws.Name).Cells(lngLoopCtr, "A")
On Error Resume Next
Sheets(strNewSheetname).Select
If Err Then
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = strNewSheetname
Worksheets(ws.Name).UsedRange.Copy
ActiveSheet.Range("a2").PasteSpecial

End If
Sheets("ws.Name").Cells(lngLoopCtr, "AH:H8").Copy Sheets(strNewSheetname).Cells(1, "AH:H8")
On Error GoTo 0
Next lngLoopCtr
End With

 

[MrKowz]

I think if you add a worksheet to your workbook called "List", then the following should work:

Worksheets("List").Select
Range("A" & Rows.count).End(xlDown).row.Value = strNewSheetname

 

[MATEAPOT]

Thanks for the quick reply.after running this macro several times i realised that there is a possibilty that it can replace an already existing sheet in the workbook.How can i prevent this?.I need a macro that will ,using a value in sheet1 cell A1 creates 3 unique tabs ,copy the range in sheet1 to these sheets,then paste the names of the newly created tabs to a sheet called List.