Perhaps the following code(s) may help:-
Dim wsT As Worksheet: Set wsT = Sheets("Template")
Application.ScreenUpdating = False
If Not Evaluate("ISREF('" & "App" & "'!A1)") Then
ActiveSheet.Name = "App" & Sheets.Count - 1
Application.ScreenUpdating = True
Dim ws As Worksheet
Dim myshape As Shape
For Each ws In Worksheets
If ws.Name <> "Template" Then
For Each myshape In ws.Shapes
myshape.Visible = False
You'll see that there are two codes with the main code (Test) calling the second code (HideShapes). The second code simply ensures that the button used to execute the code(s) is not visible on any of the newly created sheets.
I've attached a link to a mock-up workbook which shows you how this could work for you. Just click on the "TEST" ME button.
Please test it in a copy of your actual workbook.
I hope that this helps.