시트생성, 시트삭제, 강제저장

Sub 시트생성()
 Dim i As Integer
   For i = 1 To 10
    With Sheets
     .Add(after:=Sheets(.Count)).Name = "시트_" & i
    End With
  Next i
End Sub

Sub 시트삭제()
 Application.DisplayAlerts = False
   Sheet3.Delete
End Sub

Sub 강제저장()
 Application.DisplayAlerts = False
  With ThisWorkbook
    .SaveAs .Path & "\" & .Name
  End With
End Sub

※ 참고
Application.DisplayAlerts = False
       시트삭제 코드
Application.DisplayAlerts = False

이런식으로하면 경고창 같은 표시가 안납니다.
예제)
     Application.DisplayAlerts = False
    Sheets("시트_2").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = False