Adding Comment macro code

[mkillebrew]

Hello,

I'm trying to set up a control button with a macro that will allow a user to select a cell and hit a button that that is more apparent to a user that may be unfamiliar with this Excel capability. I am trying to modify the macro I am recording so that it isn't limited to the cell that I used while recording the macro:

Sub Comment()

Range("K33").AddComment
Range("K33").Comment.Visible = False
Range("K33").Comment.Text Text:="mkillebrew:" & Chr(10) & "" & Chr(10) & ""
Range("K33").Select
End Sub

However, I have not been able to manipulate the code to remove this limitation. Can someone assist?

 

[VoG]

Replace all occurrences of Range("K33"). with ActiveCell.