Cell comments - What am I doing wrong Run-time error 91

[malibu65k]

I'm not sure what I'm doing wrong here. I've tried every example for this that I've seen...


If (conInt > 10) And (conInt < 33) Then
Set cmt = ActiveSheet.Cells(RowCount, 1).Comment
With cmt
Text Text:="901-031-573-104" <<<<< error is here <<<<<<
End With
End If



Thank you in advance for any help

 

[SkipVought]

hi,

osprey, eh?

Text needs to refer [red]BACK TO[/red] the cmt object...

    If (conInt > 10) And (conInt < 33) Then
        Set cmt = ActiveSheet.Cells(RowCount, "B").Comment
        With cmt
            [b][red].[/red][/b]Text Text:="901-031-573-104" '<<<<< error is here <<<<<<
        End With
    End If

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[malibu65k]

Osprey?!! How did you know?


I found one that works!

Sub myComment()
Dim rng As Range

Set rng = Sheet1.Range("A5")
rng.ClearComments
rng.AddComment "This is a test comment!"

End Sub

 

[SkipVought]

Osprey 901-whatever, eh?

Boeing or Bell?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[malibu65k]

LOL!!! Neither. I'm a V-22 Logistics Annalyst for another company contracted by the government.

 

[SkipVought]

Get those parts out for those Thunder Chickens!

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}