シートの追加/移動/コピー/削除/表示/印刷 [ExcelのVBA]

Private Sub CommandButton1_Click()
  Dim ws As Worksheet
  
  ' シートの追加
  Set ws = Sheets.Add
  ws.Name = "新しいシート"
End Sub

Private Sub CommandButton1_Click()
  Dim ws As Worksheet
  
  ' シートの追加
  Set ws = Sheets.Add
   
  ' シート1の前に移動
  'ws.Move before:=Worksheets("Sheet1")
  ' シート1の後に移動
  ws.Move after:=Worksheets("Sheet1")
End Sub

Private Sub CommandButton1_Click()
  ' シート1をシート1の前にコピー
  'Worksheets("Sheet1").Copy before:=Worksheets("Sheet1")
  ' シート1をシート1の後にコピー
  Worksheets("Sheet1").Copy after:=Worksheets("Sheet1")
End Sub

Private Sub CommandButton1_Click()
  Dim ws As Worksheet
  
  ' シートの追加
  Set ws = Sheets.Add
  
  ' アラートメッセージを非表示
  Application.DisplayAlerts = False
  
    ' シートを削除する
    Sheet1.Delete
    '(以下でも可能)
    'Worksheets("Sheet1").Delete
    'Worksheets(1).Delete
    
  ' アラートメッセージを表示
  Application.DisplayAlerts = True
End Sub

Private Sub CommandButton1_Click()
  ' シートを表示する
  Sheet1.Visible = True
  ' シートを非表示にする
  Sheet1.Visible = False
End Sub

Private Sub CommandButton1_Click()
  ' シート1をアクティブにする
  Sheet1.Activate
End Sub

Private Sub CommandButton1_Click()
 Dim ws As Worksheet
 
' 用紙サイズをA4に設定
WorkSheets(1).PageSetup.PaperSize = xlPaperA4

 ' 全てのシートを印刷する
 ' ※Sheet1.PrintOutなどでシート単体を印刷可能
 For Each ws In ActiveWorkbook.Worksheets
   ' 用紙サイズをA4にする
   ws.PageSetup.PaperSize = xlPaperA4
   ' 印刷の開始
   ws.PrintOut
 Next
end Sub

Private Sub CommandButton1_Click()
 ' ユーザーフォームがモーダルで表示されていると、
 ' 印刷プレビュー画面が操作できないので、
 ' ユーザーフォームを非表示にします。
 Me.Hide
 
 ' 印刷プレビューを表示する
 Sheet1.PrintPreview
 
 ' ユーザーフォームを表示する
 Me.Show
End Sub

Private Sub CommandButton1_Click()
  ' 印刷範囲を設定する
  ActiveSheet.PageSetup.PrintArea = "A1:H16"
End Sub

Private Sub CommandButton1_Click()
  ' ブック全体を印刷する
  Workbooks(1).PrintOut
End Sub