Sub AddComments() Dim ocel As Range For Each ocel In Selection.Cells If ocel.Value = 1 Then ocel.AddComment "Comment Text" End If Next End Sub