[code:1:ac99b1de37]Sub Entrar_Valor
Dim Texto As String
' Chr(13) sirve para que el mensaje se muestre en dos Líneas
Texto = InputBox("Introducir un texto " & Chr(13) & "Para la casilla A1", "Entrada de datos")
ActiveSheet.Range("A1").Value = Texto
End Sub[/code:1:ac99b1de37]
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═