Private Sub Worksheet_Change(ByVal Target as Range)
dim balloon as String
dim myRow as Integer
If Target.Address <> "$A$1" Then Exit Sub
myRow = Application.WorkSheetFunction.Match(Target,myList,0)
balloon = Sheet2.Cells(myRow,2)
Target.ClearComments
Target.AddComments.Text Text:= balloon
End Sub
myRow = Application.WorkSheetFunction.Match(Target,Sheet2.myList,0)
myRow = Application.WorkSheetFunction.Match(Target,Sheet2.Range("$A$1:$A$8"),0)
myRow = Application.WorkSheetFunction.Match(Target,Range("myList"),0)
myRow = Application.WorkSheetFunction.Match(Target,Sheet2.Range("$A$1:$A$8"),0)
Target.AddComments.Text Text:=balloon
Private Sub Worksheet_Change(ByVal Target As Range)
Dim balloon As String
Dim myRow As Integer
If Target.Address <> "$A$1" Then Exit Sub
myRow = Application.WorksheetFunction.Match(Target, Sheet2.Range("$a$1:$a$8"), 0)
balloon = Sheet2.Cells(myRow, 2)
Target.ClearComments
Target.AddComments.Text Text:=balloon
End Sub
myRow = Application.WorksheetFunction.Match(Target, Sheet2.Range("$a$1:$a$8"), 0
MsgBox myRow
balloon = Sheet2.Cells(myRow, 2)
MsgBox balloon
Private Sub Worksheet_Change(ByVal Target As Range)
Dim balloon As String
Dim myRow As Integer
If Target.Address <> "$A$1" Then Exit Sub
myRow = Application.WorksheetFunction.Match(Target, Sheet2.Range("$A$1:$A$8"), 0)
MsgBox myRow
balloon = Sheet2.Cells(myRow, 2)
MsgBox balloon
Target.ClearComments
Target.AddComments.Text Text:=balloon
End Sub
Target.AddComments.Text Text:=balloon