Dim strComment As String
If Range("A1").Comment Is Nothing Then
strComment = InputBox("Please enter the text of your comment", "Add Comment")
If StrPtr(strComment) = 0 Or strComment = "" Then
' User pressed Escape or left comment blank
Open in new window
Get your personalized solution.
Please provide your email to receive a sample view!
*This site is protected by reCAPTCHA and the Google
Terms of Service apply.
Please enter a first name
Please enter a last name
8+ characters (letters, numbers, and a symbol)
Take hold of your future.