Here's what I have so far:

Sub comment_macro()

Dim CommentCell As Range

ActiveSheet.UsedRange.SpecialCells(xlCellTypeComme nts).Select

Set CommentCell = Selection

Selection.EntireColumn.Select
Selection.EntireColumn.Insert Shift:=xlToLeft

CommentCell.Select

For Each CommentCell In ActiveSheet.Cells
* CommentCell.Offset(0, 1).Value = CommentCell.Comment.Text
Next CommentCell

End Sub

i'm getting an "object variable not set" error on the asterisked line.
did i forget to define something, or should i have set CommentCell as
an Object instead of a Range?