Another way:

if activesheet.cells(rownbr,1).comment is nothing then
'no comment
else
'yep
end if



Tom LeBold wrote:

How do you verify if a comment exist in each cell in a worksheet using VBA
code.
The following VBA code works for a verifying comments in a range: If
Range("A:A").Comment.Visible = True <

The following VBA code does not work for verifying if comments exist in a
cell:
If ActiveSheet.Cells(RowNbr, 1).Comment.Visible = True <

Received the following error: Object varible or With block variable not set.

--

Dave Peterson