Hoja.Cells(indice, 29).AddComment Text:="MiComentario" 'Si queres que este visible o no Hoja.Cells(indice, 29).Comment.Visible = False ' o true para que se vea