


Sub CopiarComentarios()
Sheets("Hoja1").Cells.Copy
Sheets("Hoja2").Range("A1").PasteSpecial Paste:=xlPasteComments, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub


Usuarios navegando por este Foro: javito2020 y 1 invitado