I am trying to create an event within multiple cells that would ask for a comment if certain conditions are met.
- If c1 < 3.2 then [run event]
- I want the event to take the forms a comment popup that would save to a comment on the cell.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyMessage As String
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
If Range("C1") < 3.2 Then
MyMessage = InputBox("Please input your comment")
.Comment.Visible = False
Thanks to TrowaD
for this tip.
Published by deri58
Latest update on September 11, 2012 at 07:23 AM by deri58.