I want to create comments to a range of cells. The comments should contain the values of another range of cells.
Here is what I have so far:
Private Sub Worksheet_Change(ByVal Target As Range) Dim sResult As String If Union(Target, Range("A18")).Address = Target.Address Then Application.EnableEvents = False Application.ScreenUpdating = False sResult = "Maximal " & Target.Value With Range("I6") .ClearComments .AddComment .Comment.Text Text:=sResult End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub
This works for one cell. I need this for a range of cells. For example, let's say I need the values of cells A1:F20 in comments of cells A21:F40. I do not want to copy the same Sub as many times.