Range Code Fails reading Comment text

[AlexanderBB]

Just wondering why this goes to error 91 "object or with block not set"

Dim MyRange as Range
Dim a 
Set MyRange = Application.Range("Sheet1!A2:G2")
a= MyRange(1).comment.text
' Set a= MyRange(1).comment.text

Both 'a=' lines result in the same error 91

Thanks.

 

[DanteAmor]

It's because the cell has no comments.

Try this:

Sub testcom()
  Dim MyRange As Range
  Dim a
  Set MyRange = Application.Range("Sheet1!A2:G2")
  If MyRange(1).Comment Is Nothing Then
    MsgBox "The cell has no comments"
  Else
    a = MyRange(1).Comment.Text
  End If
End Sub

 

[AlexanderBB]

Aaw shucks! I had struck this before, but forgotten.
The error description threw me.. many thanks.

 

[DanteAmor]

Im glad to help you. Thanks for the feedback.