Sub ボタン表示()
Call ボタン削除
    ActiveSheet.Buttons.Add(162.75, 27, 96, 23.25).Select
    Selection.OnAction = "Macro_test"
    Selection.Characters.Text = "マクロ実行"
    Range("A1").Select
End Sub
----------------------------------------------------------------
Sub ボタン削除()
    For Each zu In ActiveSheet.Shapes
       If InStr(1, zu.Name, "AutoShape", 1) = 0 Then
          zu.Delete
       End If
    Next
End Sub

Sub ショートカットキー1()
    Application.MacroOptions Macro:="Macro_test", _
    Description:="", ShortcutKey:="q"
    MsgBox "「Ctrl」+「q」でマクロ「Macro_test」実行を設定しました。"
End Sub
---------------------------------------------------------------
Sub ショートカットキー2()
    Application.OnKey "^{e}", "Macro_test"
    MsgBox "「Ctrl」+「e」でマクロ「Macro_test」実行を設定しました。"
End Sub

Sub キー設定1()
    Application.MacroOptions Macro:="Macro_test", ShortcutKey:="q"
    MsgBox "「Ctrl」+「q」でマクロ「Macro_test」実行を設定しました。"
End Sub
-----------------------------------------------------------------
Sub キー設定2()
    Application.OnKey "^{q}", "Macro_test"
    MsgBox "「Ctrl」+「q」でマクロ「Macro_test」実行を設定しました。"
End Sub

Sub ファンクションキー()
    Application.OnKey "{F10}", "Macro_test"
    MsgBox "「F10」キーでマクロ「Macro_test」実行を設定しました。"
End Sub

Sub Macro_test()
    Range("A1").Value = "ABCDE"
    Range("B3").Value = "12345"
    Range("A3").Value = "abcd"
End Sub
-------------------------------------------------------
Sub AUTO_OPEN()
    Range("A1").Value = "ABCDE"
    Range("B3").Value = "12345"
    Range("A3").Value = "abcd"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   ' Cancel = True
     MsgBox "ブックを閉じます（閉じるイベント確認)"
End Sub

Sub AUTO_CLOSE()
    MsgBox "ブックを閉じます(Excel95分確認）"
End Sub

Sub イベントOFF()
    Application.EnableEvents = False
End Sub
※上記BeforeCloseイベントは、これで無効にできます。なお、Excel95文の方は無効になりません
---------------------------------------------------------------
Sub イベントON()
    Application.EnableEvents = True
End Sub

Sub ファイルを開く1()
Dim fff As String
fff = Application.GetOpenFilename(Title:="開くファイルを指定")
     If fff = "False" Then
        MsgBox "ファイルを１個指定して下さい"
        Exit Sub
     End If
 イベントマクロを無効にする
 Application.EnableEvents = False
 
 Workbooks.Open Filename:=fff, Editable:=True
End Sub
------------------------------------------------------------
Sub イベント解除()
    Application.EnableEvents = True
        MsgBox "イベントを有効にしました"
 
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim celr As Integer
Dim celc As Integer
Dim code As Integer
    celr = ActiveCell.Row
    celc = ActiveCell.Column
    If celc <> 1 Then
       Exit Sub
    End If
      code = Cells(celr, 1)
    If IsNumeric(code) = False Then
        MsgBox "数字が対象です"
        Exit Sub
    End If
    Call イベント例(code)
End Sub

Sub イベント例(bango)
On Error Resume Next
dai = ""
Call 表題3(bango)
Cells(1, 1).Value = "Dialogs(" & bango & ")【" & dai & _
】を表示中です。
 
  Application.Dialogs(bango).Show
  If Err = 1004 Then
    Cells(1, 1) = ""
    MsgBox "「" & bango & "」は表示できません"
    On Error GoTo 0
    Exit Sub
  End If
End Sub
-----------------------------------------------------------
Sub 表題3(ban)
Dim i As Integer
For j = 3 To 76
    If Cells(j, 1) = ban Then
        dai = Cells(j, 2)
        Exit For
    End If
Next
End Sub

Private Sub Worksheet_Activate()
    MsgBox "Sheet1がアクティブになった"
End Sub
----------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
    MsgBox "シ−ト上でダブルクリックされました"
End Sub
----------------------------------------------------
Private Sub Worksheet_BeforeRightClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
    MsgBox "シ−ト上で右クリックされました"
End Sub
---------------------------------------------------
Private Sub Worksheet_Calculate()
    MsgBox "このシ−トのデ−タを再計算した"
End Sub
----------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
    rr = Target.Row
    cc = Target.Column
    MsgBox rr & "行" & cc & "列セルが変わりました"
End Sub
----------------------------------------------------
Private Sub Worksheet_Deactivate()
    MsgBox "Sheet1ががアクティブでなくなった"
End Sub
----------------------------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
        MsgBox "ハイパーリンクがクリックされた"
End Sub
----------------------------------------------------
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
        MsgBox "ピポットが更新されました"
End Sub
----------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  If Target.Address = Cells(2, 2).Address Then
     MsgBox Target.Address & "のセルが選ばれた"
  End If
End Sub