Add Date to Inputbox

[matthewlrx]

Hi all

I have the below code which works perfect, what I am now trying to do is have today's date formatted in "YYYY-MM-DD" as the default value in input2. Can somebody please see if they can help?

Sub OpenShifts()
    Dim str As String
    input1 = InputBox("Enter Login")
    input2 = InputBox("Enter Date yyyy-mm-dd")
    str = "https://websitedomainhere/" & input1 & "sometexthere/" & input2
    ThisWorkbook.FollowHyperlink (str)
End Sub

 

[matthewlrx]

Dont stress, got it working.

input2 = InputBox("Enter Date yyyy-mm-dd", "Title", Format(Date, "yyyy-mm-dd"))