Simple Macro to add Comments

[ssinghal]

I want to have a macro that will simply copy the text in the current cell to a comment in that same cell. Can someone help me out?

Thanks,

Sanjeev

[Carl A]

Range("A1").Comment.Text Text:=Range("A1").Text