displaying comments at a certain place

[wayneg]

Range("V11:V702").ClearComments
      
Dim LR As Long
LR = Range("U" & Rows.Count).End(xlUp).Row
For i = 10 To LR
   Range("V" & i).NoteText Text:=Range("U" & i).Value
Next i


   Dim WS As Worksheet
    For Each WS In ActiveWorkbook.Worksheets
Dim MyComments As Comment
        For Each MyComments In ActiveSheet.Comments
            With MyComments
            .Shape.TextFrame.AutoSize = True
            If .Shape.Width > 300 Then
                Dim lArea As Long
                lArea = .Shape.Width * .Shape.Height
                .Shape.Width = 200
                .Shape.Height = (lArea / 200) * 1.9
                End If
                End With
            Next MyComments
        Next WS 

This code works perfectly for me, but can someone help me modify it so the comment from each cell displays to the left of the cell or at a specific X,Y coordinates. the reason why i ask this is that i have frozen the cells and the comment appears to the right of the frozen part and therefore not in view... i would prefer a certain X,Y coordinates if this is possible

[wayneg]

I have found this

            .Shape.Top = .Parent.Top - 50
            .Shape.Left = .Parent.Offset(, 1).Left - 800 

but ot wont work if i add it to the rest of the code