Paste this code into your worksheet module,it will create a comment box
with A1 text,
So whenever you focus on A1 the comment box will pop up showing you
what is in it


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").ClearComments

Range("A1").AddComment
Range("A1").Comment.Visible = False
Range("A1").Comment.Text Text:=Range("A1").Text

End Sub