i was trying to get the cells comments i have at the top of each row (column heading) to show more clearly to the user
(every user has their how PC, so many different monitors and resolutions)

i've tried the following and although i like to lines and boxes (bubbles), they too sometimes go off the screen...

???

Dim rng As Range
Dim cTop As Long
Dim lGap As Long
Dim cmt As Comment
Dim sh As Shape

Application.DisplayCommentIndicator _
= xlCommentIndicatorOnly

Set rng = ActiveWindow.VisibleRange
cTop = rng.Top + rng.Height / 10

lGap = 0.5 'adjust space between window edge and comment

If ActiveCell.Comment Is Nothing Then
'do nothing
Else
Set cmt = ActiveCell.Comment
Set sh = cmt.Shape
'sh.Top = cTop - sh.Height / 2
sh.Top = cTop - sh.Height / 50
sh.Left = rng.Width - sh.Width - lGap
cmt.Visible = True
End If

'http://www.contextures.com/xlcomments03.html#FormatColour
'www.contextures.com/xlcomments03.html 'show comments at centre right of window
'http://dmcritchie.mvps.org/excel/ccomment.htm



thank you.