Positie opmerking

[ZIPPO_2]

Hallo iedereen,

Ik heb het volgende probleem.
Wanneer ik op de rechterzijde van mijn blad een opmerking plaats er nadien op klik dan valt de opmerking buiten mijn blad.
Zoals het hoort heb ik eerst dit forum doorzocht en dacht de oplossing gevonden te hebben maar ze werkt niet bij mij.
Kan ieman mij helpen?
Hieronder de gevonden code. Deze code zou ervoor zorgen dat de opmerking in het midden van het beeld komt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)						
						
 Dim rng As Range						
 Dim cTop As Long						
 Dim cWidth As Long						
 Dim cmt As Comment						
 Dim sh As Shape						
 						
 Application.DisplayCommentIndicator _						
    = xlCommentIndicatorOnly						
 						
 Set rng = ActiveWindow.VisibleRange						
 cTop = rng.Top + rng.Height / 2						
 cWidth = rng.Left + rng.Width / 2						
If ActiveCell.Comment Is Nothing Then						
  						
Else						
  Set cmt = ActiveCell.Comment						
  Set sh = cmt.Shape						
  sh.Top = cTop - sh.Height / 2						
  sh.Left = cWidth - sh.Width / 2						
  cmt.Visible = True						
End If						
						
						
End Sub

grtjs
Ronny