Input box VBOKCancel problem

[Jmoz092]

I'm having an issue with an application.inputbox in a macro. It keeps popping up with a "1" in the user input section when the message box initially appears. Why is this happening?

Dim BeginDate As Variant
ShowInputBox:
BeginDate = Application.InputBox("What is the first day of the next month's workbook that you wish to create?", "Workbook Begin Date mm-dd-yyy", vbOKCancel)
If BeginDate = vbCancel Then
Exit Sub
ElseIf BeginDate = "" Then
MsgBox "No Begin Date Was Entered"
Exit Sub
Else
Sheet49.Range("a2").Value = BeginDate
End If

 

[Joe4]

"vbOkCancel" is an invalid argument for InputBox (this is InputBox, not MSgBox).
See: https://msdn.microsoft.com/en-us/vba/excel-vba/articles/application-inputbox-method-excel

So just remove that last argument, i.e.

BeginDate = Application.InputBox("What is the first day of the next month's workbook that you wish to create?", "Workbook Begin Date mm-dd-yyy")

 

[mumps]

Try:

Dim BeginDate As Variant
ShowInputBox:
BeginDate = Application.InputBox("What is the first day of the next month's workbook that you wish to create?", "Workbook Begin Date mm-dd-yyy", , vbOKCancel)
If BeginDate = vbCancel Then
Exit Sub
ElseIf BeginDate = "" Then
MsgBox "No Begin Date Was Entered"
Exit Sub
Else
Sheet49.Range("a2").Value = BeginDate
End If

You left out a comma to the left of vbOKCancel. The Cancel button will appear but it won't work as expected.

 

[Rick Rothstein]

I'm having an issue with an application.inputbox in a macro. It keeps popping up with a "1" in the user input section when the message box initially appears. Why is this happening?

Dim BeginDate As Variant
ShowInputBox:
BeginDate = Application.InputBox("What is the first day of the next month's workbook that you wish to create?", "Workbook Begin Date mm-dd-yyy", vbOKCancel)
If BeginDate = vbCancel Then
Exit Sub
ElseIf BeginDate = "" Then
MsgBox "No Begin Date Was Entered"
Exit Sub
Else
Sheet49.Range("a2").Value = BeginDate
End If

The 1 is coming from vbOkCancel as that is the underlying value for that built-in VB constant. The reason it is appearing in the user's input section is because you put it in the argument position for the InputBox's Default value. The problem is that you are trying to use a MessagBox argument in an InputBox... the Application.InputBox always displays an OK and a Cancel button and has no provision that I am aware of to change the buttons that appear. To solve your problem, simply remove that last argument (and the comma in front of it).

 

[Jmoz092]

Took out the last part and comma as educated. Thanks, as always, for explaining why the issue was occurring, and thanks for the reference link!

 

[Joe4]

You are welcome. Glad we could help!