How to do the opposite of the attached VBA code?

[DKerr]

I have found the code below on the web that I use to create tabs based on the values in several cells. How do I do the opposite and delete sheets with names shown in the same cells?

<code>
Sub copySheet2()
Dim rngName As Range
Dim i As Integer
Set rngName = ThisWorkbook.Sheets("Sheet1").Range("a1")
Do Until rngName.Value = ""
i = ThisWorkbook.Sheets.Count
Sheets("Sheet2").Copy After:=Sheets(i)
ThisWorkbook.Sheets(i + 1).Name = rngName.Value
Set rngName = rngName.Offset(1)
Loop
End Sub
</code>

[AB33]

Dkerr,
Please use code tags with your code.
Do you want to delete the sheets you have created?

[DKerr]

I dont know how to tage code?

Yes the code above will be for one button and I would like another button to delete the sheets created with the above code.

[AB33]

This code deletes all sheets in your book, except sheet2.

Please Login or Register  to view this content.