InputBoxes
Hi,
I've created a button to allow a user to add comments to a protected
sheet. I have this code below:
Sub Add_comment()
Dim comment As Variant
ActiveSheet.Unprotect Password:="55555"
comment = InputBox("Enter Date Here")
If comment = False Then Exit Sub
ActiveCell.NoteText comment
ActiveSheet.Protect Password:="55555"
End Sub
I would like to have two input boxes that populate one comment. I want
the user to be prompted to insert the date (or have the date
automatically pulled in) and have a second prompt that asks the user to
input the comment, so that there comment shows up with the date and
what they are saying.
Thank you,
Sean
|