This might help. It will make a comment appear in a defined position when a single cell is selected.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo NoComment
PreviousTargetAddress = Cells(Rows.Count, Columns.Count).Value
If PreviousTargetAddress <> "" Then
Range(PreviousTargetAddress).Comment.Visible = False
End If
MyCoordinates = Split(Target.Comment.Text, ",")
Target.Comment.Shape.Left = MyCoordinates(0)
Target.Comment.Shape.Top = MyCoordinates(1)
Target.Comment.Visible = True
Cells(Rows.Count, Columns.Count) = Target.Address
Exit Sub
NoComment:
End Sub
For this to work, the above code needs to be pasted into the appropriate sheet tab (e.g. Sheet1) in the VBA editor. Additionally, the text in the comment needs to specify the coordinates (e.g. 39.75,333) separated by a comma, The font can be sort of hidden by use of a suitably small font and appropriate colour.
Bookmarks