Extra button in Input popup

[Sacruzsa]

Hello everyone,

Can anyone help me with the following problem?
I would like to add an extra button to a module, with the go to today function, is that possible?
The code in the module is now:

Sub gotodate()
Dim tt As Long
Dim TheString As String, TheDate As Date
TheString = Application.InputBox("Enter A Date ##/##/2024 format")
If TheString = False Then Exit Sub
    If IsDate(TheString) Then
        TheDate = DateValue(TheString)
    Else
        MsgBox "Invalid date enter ##/##/2024 format"
    Exit Sub
    End If

Inarr = Range(Cells(11, 1), Cells(11, 750))
tt = TheDate
For i = 1 To 750
If tt = Inarr(1, i) Then
 Cells(11, i).Select
 Exit For
End If
Next i

End Sub

and looks like this:

So I would like to have a 'Today' button to the left of the 'OK' button if possible
Thanks for the help

 

[Joe4]

Why not just populate your Input Box with a default value (which is one of the arguments) of the current date?, i.e.

TheString = Application.InputBox("Enter A Date ##/##/2024 format", Default:=Date)

 

[6StringJazzer]

You can't add buttons to the InputBox. You can create your own UserForm that mimics the InputBox. However, it will probably be easier to populate it with today's date as a default.

TheString = Application.InputBox(prompt:="Enter A Date ##/##/2024 format", Default:=Format(Date, "mm/dd/yyyy"))