Exportar comentarios entre libros

Buenos días,

Tengo un archivo excel donde meto datos y añado comentarios en algunas celdas y por otro lado tengo otro fichero excel donde quiero añadir los comentarios del primero.

En el fichero donde tengo los datos me funciona correctamente y lo que tengo es lo siguiente:

Sub Copiar_comentarios()
Dim Celda As Range, Fila As Integer
On Error Resume Next ' por si no existen celdas con comentarios '
For Each Celda In Worksheets("2013").Range("h1:u5000").SpecialCells(xlCellTypeComments)
Fila = Fila + 1
Range("a" & Fila) = Celda.Address
Range("b" & Fila) = Celda.Comment.Text
Next
End Sub

¿como puedo hacer para que esto mismo me funcione desde el otro archivo excel?

Muchas gracias por vuestra ayuda