Create "X" number of Worksheets based on Cell Value entered

This example deletes the sheets before adding sheets again.

Please Login or Register  to view this content.

Hi tharindudk

Welcome to the Forum!!

It's a bit unclear to me...what's the Worksheet Name of your Template...is it "Details"??

Hi, Thanks for the help. It works. Except i donno how to reset it everytime i enter a new value, eg if i had 6 and now want only 5. How do i modify it so it generates that amount of sheets everytime i change the number. Thanks

Sub createTIPT_copies()

If CheckBox1.Value = True Then

Dim rng As Range, cnt As Integer, x, sh As Worksheet
Set rng = Range("F20")
cnt = rng
Application.DisplayAlerts = 0


For x = 1 To cnt
Sheets("TIPT").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.name = "Site " & x
Next x
Sheets(2).Activate

End If
End Sub

Thanks

Your missing three lines of my code, that deletes the sheets. You will have to change the sheet name to TIPT