VBA Reading comment out of Cell (syntax?)

[cboshdave]

I have seen several examples of how to read cell comments. I am doing it slightly different and I guess my syntax is wrong??
My line that tries to set sComment = Cells(r,c).Comment.Text does not ever grab the Comments from the cell. I'm hoping this is dumb format/syntax problem.

        DIM sComment as Comment
        ...
        On Error Resume Next
        sComment = Cells(iRow, iCol).Comment.Text  'Even if there is a comment, this line does not see it??
        If Not sComment Is Nothing Then
            If sComment.Text = "#LAST_ROW" Then
                bStop = True 'Defined globally so main method can use.
                Exit Do
            End If
        End If

 

[Rick Rothstein]

I have seen several examples of how to read cell comments. I am doing it slightly different and I guess my syntax is wrong??
My line that tries to set sComment = Cells(r,c).Comment.Text does not ever grab the Comments from the cell. I'm hoping this is dumb format/syntax problem.

        [B][COLOR="#FF0000"]DIM sComment as Comment[/COLOR][/B]
        ...
        On Error Resume Next
        sComment = Cells(iRow, iCol).Comment.Text  'Even if there is a comment, this line does not see it??
        If Not sComment Is Nothing Then
            If sComment.Text = "#LAST_ROW" Then
                bStop = True 'Defined globally so main method can use.
                Exit Do
            End If
        End If

Dim your sComment variable as a String data type, not a Comment data type... the Text value returned from a Comment property is a String value.