yoss15

Estoy utilizando el código: Sub GeneraTxt() Dim MiRango As Range, Largo As Integer, FilaActual As Long On Error Resume Next Set MiRango = Application.InputBox("Seleccione rango a exportar", Type:=8) On Error GoTo 0 If MiRango Is Nothing Then Exit Sub...