【VBA】OKのみのメッセージボックス｜MsgOKOnly

' -----------------------------------------------------------------------
' 引数          : text:メッセージボックスのメイン文章/title:見出し
' -----------------------------------------------------------------------
Public Sub MsgOKOnly( _
                            ByVal text As String, _
                            ByVal title As String)
    
    MsgBox text, vbOKOnly, title
End Sub

vbOKCancel + vbCritical '警告
vbYesNo + vbQuestion '質問
vbOKOnly + vbExclamation '注意
vbAbortRetryIgnore + vbQuestion