Verify if Comment exist in a cell
 

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.

Tom,

Dim C As Comment
On Error Resume Next
Set C = Range("A1").Comment
If Err.Number = 0 Then
' cell has comment, C
Else
' cell does not have comment
End If
On Error GoTo 0


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Tom LeBold" wrote in
message
...
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.

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