Morning All
Can anyone help with the following code that I have Spliced Together. Im tring to use a input box to insert a comment to the active cell on the worksheet, this is what i Have so far:
The Code opens up the comment box, but I dont know how to referance the active cell as the Target Cell to insert the comment. any help would be appreciated
Best regards
Mark
Can anyone help with the following code that I have Spliced Together. Im tring to use a input box to insert a comment to the active cell on the worksheet, this is what i Have so far:
Code:
Sub Macro6()
'
' Macro6 Macro
'
' Keyboard Shortcut: Ctrl+n
Dim cmt As Comment
Dim newcomment As String
Set cmt = ActiveCell.Comment
newcomment = InputBox("Enter your comment", "Comments", Default)
With Target.AddComment
.Visible = False
.Text newcomment
End With
'type to add comment text to selected shape
cmt.Visible = True
End Sub
The Code opens up the comment box, but I dont know how to referance the active cell as the Target Cell to insert the comment. any help would be appreciated
Best regards
Mark