Sub My_Script()
'Modified 11-15-17 11:50 AM EST
Application.ScreenUpdating = False
Dim ans As String
Dim num As Long
ans = ActiveSheet.Name
num = Sheets(ans).Range("A1").Value
For i = 1 To num
Sheets(ans).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Pkg" & i
Next
Application.ScreenUpdating = True
End Sub
Working fine Thank you..add Msg box "sheet already existed"
if i click your macro 2 times one more copy is coming can u fix this
Sub My_Script()
'Modified 11-15-17 12:17 AM EST
On Error GoTo M
Application.ScreenUpdating = False
Dim ans As String
Dim num As Long
ans = ActiveSheet.Name
num = Sheets(ans).Range("A1").Value
For i = 1 To num
Sheets(ans).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Pkg" & i
Next
Application.ScreenUpdating = True
Exit Sub
M:
MsgBox "That sheet allready exist"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Thanks for nice example i have understood
From master sheet A1 value is copy in all sheets,cant we hide this value in new sheets?
or
i have a option to delete individually by going to every sheet?