1Sub button() 2 MsgBox "ボタンが押されました!", vbInformation 3End Sub 4
2Private Sub button() 3'Privateを削除 4Sub button()