Because the code does not know which comments are hidden and which comments
are visible the:

r.comment.Visible = False

makes EVERY comment on the sheet hidden. The last part of the code reveals
only the selected cell's comment.
--
Gary''s Student - gsnu200720