Can anyone tell me how to make Todays Date the default option in aninput box?
Use the Date function:Sub AAAA()Dim x As Stringx$ = InputBox("Blah", "Blah", Date)End Sub