Hai gia' una soluzione, ma inserisco lo stesso le mie considerazioni...
1) Se registri una macro mentre inserisci un commento, o mente lo cancelli, otterrai facilmente il codice che cerchi; es:
- Codice: Seleziona tutto
Range("K9").AddComment
Range("K9").Comment.Text Text:="Anthony:" & Chr(10) & "Testo del commento"
- Codice: Seleziona tutto
Range("K9").ClearComments
Chr(10) equivale a "ritorno a capo", e serve per separare la parte "Autore" dalla parte Testo
2) e' opportuno che il codice sia leggermente piu' sofisticato di quanto ti hanno gia' suggerito. In particolare se la cella ha gia' un commento allora non potrai usare ".AddComment", ma dovrai limitarti a modificare il testo.
Quindi userai, ad esempio:
- Codice: Seleziona tutto
With Range("K9")
Set myComm = .Comment
If myComm Is Nothing Then
.AddComment.Text "Testo Commento" 'Nuovo commento
Else
.Comment.Text "Nuovo Testo modificato" 'Nuovo testo nel commento
End If
End With
Se il testo e' in una tua variabile allora invece delle stringhe tra virgolette userai il nome variabile; es
.Comment.Text NomeVariabile Ciao