whitenita

Este es el código que yo probé y funciona: Sub New_Comment() texto = Cells(1, 1).Value & " " & Cells(1, 2).Value & " " & Cells(2, 1).Value & " " & Cells(2, 2).Value Cells(6, 6).Select ActiveCell.AddComment.Text Text:=texto End Sub

Realice la siguiente modificación al código propuesto, pruebelo y si la respuesta es satisfactoria por favor cerrar la pregunta: Sub Macro2() ' ' Macro2 Macro ' Keyboard Shortcut: Ctrl+q ' Range("D2").Select Range(Selection,...