Format Comment IN Excel

Hi Someone can help me ?

I want format this comment using BOLD and COLOR

Range("A1").Select
Range("A1").AddComment
Range("A1").Comment.Visible = False
Range("A1").Comment.Text Text:="MRN:" & Chr(10) & "My Code"
Range("A1").Select

Thanks!

You can't do it using VBA so to speak. You may be able to do it
by modifing the HTML/JavaScript code for comment.

Code:

---

SAMPLE CODE
<![if !supportAnnotations]><style id="dynCom" type="text/css"><!-- --></style>

<script language="JavaScript"><!--

function msoCommentShow(com_id,anchor_id) {
        if(msoBrowserCheck()) {
          c = document.all(com_id);
          a = document.all(anchor_id);
          if (null != c) {
                var cw = c.offsetWidth;
                var ch = c.offsetHeight;
                var aw = a.offsetWidth;
                var ah = a.offsetHeight;
                var x = a.offsetLeft;
                var y = a.offsetTop;
                var el = a;
                while (el.tagName != "BODY") {
                  el = el.offsetParent;
                  x = x + el.offsetLeft;
                  y = y + el.offsetTop;
                  }               
                var bw = document.body.clientWidth;
                var bh = document.body.clientHeight;
                var bsl = document.body.scrollLeft;
                var bst = document.body.scrollTop;
                if (x + cw + ah/2 > bw + bsl && x + aw - ah/2 - cw >= bsl ) {
                  c.style.left = x + aw - ah / 2 - cw;
                }
                else {
                  c.style.left = x + ah/2;
                }
                if (y + ch + ah/2 > bh + bst && y + ah/2 - ch >= bst ) {
                    c.style.top = y + ah/2 - ch;
                }
                else {
                  c.style.top = y + ah/2;
                }
                c.style.visibility = "visible";
          }
        }
}

function msoCommentHide(com_id) {
        if(msoBrowserCheck()) {
          c = document.all(com_id)
          if (null != c) {
            c.style.visibility = "hidden";
            c.style.left = "-10000";
            c.style.top = "-10000";
          }
        }
}

function msoBrowserCheck() {
 ms=navigator.appVersion.indexOf("MSIE");
 vers = navigator.appVersion.substring(ms+5, ms+6);
 ie4 = (ms>0) && (parseInt(vers) >=4);
 return ie4
}

'HERE IS THE RELEVALANT CODE FOR FORMATTING THE COMMENT
if (msoBrowserCheck()) {
document.styleSheets.dynCom.addRule(".msocomspan1","position:absolute");
document.styleSheets.dynCom.addRule(".msocomspan2","position:absolute");
document.styleSheets.dynCom.addRule(".msocomspan2","left:-1.5ex");
document.styleSheets.dynCom.addRule(".msocomspan2","width:2ex");
document.styleSheets.dynCom.addRule(".msocomspan2","height:0.5em");
document.styleSheets.dynCom.addRule(".msocomanch","font-size:0.5em");
document.styleSheets.dynCom.addRule(".msocomanch","color:red");
document.styleSheets.dynCom.addRule(".msocomhide","display: none");
document.styleSheets.dynCom.addRule(".msocomtxt","visibility: hidden");
document.styleSheets.dynCom.addRule(".msocomtxt","position: absolute");       
document.styleSheets.dynCom.addRule(".msocomtxt","top:-10000");       
document.styleSheets.dynCom.addRule(".msocomtxt","left:-10000");       
document.styleSheets.dynCom.addRule(".msocomtxt","width: 33%");               
document.styleSheets.dynCom.addRule(".msocomtxt","background: infobackground");
document.styleSheets.dynCom.addRule(".msocomtxt","color: infotext");
document.styleSheets.dynCom.addRule(".msocomtxt","border-top: 1pt solid threedlightshadow");
document.styleSheets.dynCom.addRule(".msocomtxt","border-right: 2pt solid threedshadow");
document.styleSheets.dynCom.addRule(".msocomtxt","border-bottom: 2pt solid threedshadow");
document.styleSheets.dynCom.addRule(".msocomtxt","border-left: 1pt solid threedlightshadow");
document.styleSheets.dynCom.addRule(".msocomtxt","padding: 3pt 3pt 3pt 3pt");
document.styleSheets.dynCom.addRule(".msocomtxt","z-index: 100");
}

// -->
</script>
<![endif]>

---