Dante Amor respondió:
Cambia esta línea For Each Celda in Worksheets("2013").Range("h1:u5000").SpecialCells(xlCellTypeComments) Por esta For Each Celda In Workbooks("libro1").Worksheets("2013").Range("h1:u5000").SpecialCells(xlCellTypeComments) Cambia "libro1" por el...