VBA自动添加批注代码

Question

以下是我写的代码，想要实现的是在L7:L44单元格里，当字符串长度超过40时，VBA自动判断并添加批注。
以下的代码要通过点击宏才能实现，有没办法自动呢？
另外我下面的代码返回424错误，无法找到目标。所以这个只是参考。

Sub yyy()
For i = 7 To 44
s = Sheet1.Cells(i, 12)
If Len(s) > 40# Then
s.AddComment
s.Comment.Visible = True
s.Comment.Text Text:="Yuan, Chen:" & Chr(10) & "Max 40 Characters"
End If
Next
End Sub

Answer 1

点工作表 标签  查看代码，如下代码复制进去, 修改 单元格内容   触发

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 12 And Target.Row >= 7 And Target.Row <= 44 And Target.Count = 1 Then
  If Len(Target) > 40 Then
   Target.AddComment
    Target.Comment.Visible = True
    Target.Comment.Text Text:="Yuan, Chen:" & Chr(10) & "Max 40 Characters"
   End If
 End If
End Sub