Может Вы это искали:  
ActiveCell.Comment.Visible = True

Вот ещё на нашем Форуме обсуждали:  
httpф://yandex.ru/sitesearch?text=%EE%F2%F1%EB%E5%E4%E8%F2%FC+%EA%EE%EE%F0%E4%E8%ED%E0%F2­%FB+%EC%FB%F8%E8&searchid=84804&web=0  
Просто набрал в окошке поиска "Отследить координаты мыши"

Да и я про то же...  
 
Но, в любом случае это лучше, чем в 1001-й раз решать очередную задачу с ВПР...  
Хоть что-то новенькое :)

Вставьте нижеприведённый код в модуль нужного Вам листа.  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Dim iComment As Comment  
For Each iComment In ActiveSheet.Comments  
With iComment.Shape  
.Visible = False  
End With  
Next  
  If Not Intersect(Target, Range("B:D")) Is Nothing Then  
     If Not Target.Comment Is Nothing Then  
        Target.Comment.Visible = True  
     End If  
End If  
End Sub

И от меня спасибо.  
Увидел код, решил, что пригодится.  
Только я немного доработал:  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Dim iComment As Comment  
For Each iComment In ActiveSheet.Comments  
 With iComment '.Shape  
   .Visible = False  
 End With  
Next  
If Target.Cells.Count > 1 Then Exit Sub  
If Not Target.Comment Is Nothing Then  
 Target.Comment.Visible = True  
 Target.Comment.Shape.TextFrame.AutoSize = True  
End If  
End Sub  
 
Когда было With iComment.Shape при манипуляциях с автофильтром становились видны все комменты - не комильфо.