sample/sheet-1 - konkensyu @ ウィキ

Sub ★シートを新規ファイルにコピー()

   ActiveSheet.Copy
   Application.Dialogs(xlDialogSaveAs).Show arg1:=Range("D2").Value
  

End Sub

Sub ★全シートのカーソルをA1セルに移動()

   Dim 対象シート As Variant           '定義：対象シート（Variant型）
   Dim i As Integer                    '定義：i （Integer型）
  
   i = 1

   For Each 対象シート In Worksheets   '全てのシートで動作
       If Sheets(対象シート.Name).Visible = True Then  '表示されているワークシートなら
           Sheets(対象シート.Name).Select
           Range("A1").Select                  'カーソルをA1セルに移動
       End If
   Next

   Do Until Sheets(i).Visible = True           '表示されているシートになるまでLoopする
           i = i + 1
   Loop
  
   Sheets(i).Select            'i番目のシートに移動

End Sub

Sub ★列幅を合わせる()

   ActiveCell.Select
   Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
       SkipBlanks:=False, Transpose:=False

End Sub

Sub ★変更を保存して閉じる()

   'ショートカット割当：Ctrl＋Shift＋S

   ActiveWorkbook.Close True

End Sub

Sub ★一定範囲コピペ値貼付後範囲外データ消去()

   'ショートカット割当：Ctrl＋Shift＋V
   With ActiveSheet
       .Range("A:H").Copy
       .Range("A:H").PasteSpecial xlPasteValues
       .Range("I:N").DELETE
       .Range("A1").Select
   End With

End Sub

Sub ★全シート表示()

   Dim 対象シート As Variant               '対象シートの定義（Variant型）

   For Each 対象シート In Worksheets       '全てのシートで動作
       Sheets(対象シート.Name).Visible = True          'ワークシートを表示する
   Next

   Sheets(1).Select                        '１番左のシートに移動

End Sub

Sub ★★左側のシート全削除()

   Dim n As Variant

   Application.DisplayAlerts = False

   With ActiveWorkbook
       n = .Worksheets.Count

       For i = 1 To n - 1
           .Worksheets(1).DELETE
       Next
   End With
   Application.DisplayAlerts = True

End Sub