matthewlrx
New Member
- Joined
- Jul 4, 2022
- Messages
- 16
- Office Version
- 2021
- Platform
- Windows
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?
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?
VBA Code:
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