=IF(VLOOKUP($G$4,Results!$A:$BI,26,FALSE)="","",VLOOKUP($G$4,Results!$A:$BI,26,FALSE))
Private Sub Worksheet_Activate()
Worksheets(1).Range("l7").ClearComments
With Worksheets(1).Range("l7").AddComment
.Visible = False
.Text "Comments are : " & Range("l7")
End With
End Sub
Private Sub Worksheet_Calculate()
Worksheets(1).Range("l7").ClearComments
With Worksheets(1).Range("l7").AddComment
.Visible = False
.Text "" & Range("l7")
Set Target = Range("l7")
Target.Comment.Shape.ScaleHeight 2, msoFalse
Target.Comment.Shape.ScaleWidth 2, msoFalse
End With