Como insertar comentarios con ciclo for en excel

Te mando mi ejemplo, sigue mis pasos:

En a celda A1 tengo anotado el texto que pondré en el comentario y lo voy a instalar en la columna D desde D1 hasta D10

Con esta macro lo consigues

Sub comentarios()
'por luismondelo
texto = Range("a1").Value
Range("d1").Select
For f = 1 To 10
ActiveCell.AddComment.Text Text:=texto
ActiveCell.Offset(1, 0).Select
Next
End Sub

Al ejecutar el código me dice: "Error definido por la aplicación o el objeto"

y me manda a esta línea:

ActiveCell.AddComment.Text Text:=texto

no sé que pueda ser, sin embargo, mi idea

es recorrer el valor de una columna digamos de A1 a A10
y meter el comentario con un for de D1 a D10

algo así como:

Sub Comment()

for i=1 to 10

' Aquí seleccionaría el valor de cada celda de A de A1 hasta A10:

texto = Cells(1, i).Value
'Aquí pegaría el valor de cada celda A en cada celda en D como comentario:

Cells(4, i).Select
ActiveCell.AddComment.Text Text:=texto

next
End Sub

pero me manda el mismo error que comento, que hago mal??

Gracias.

Tu macro quedaría así:

Sub comentarios()
'por luismondelo
Range("d1").Select
Do While ActiveCell.Offset(0, -3).Value <> ""
ActiveCell.AddComment.Text Text:=ActiveCell.Offset(0, -3).Value
ActiveCell.Offset(1, 0).Select
Loop
End Sub