Actividad pública reciente
Ha valorado "Excelente" la respuesta
Guardar con nombre de celda
Quedaría así Sub ExportarDelimitado() Dim wksH As Worksheet Dim intFich As Integer, lngNumReg As Long, strCad As String Dim lngContL As Long, intContC As Integer, n As Long Set wksH = Worksheets("Hoja1") 'Hoja donde están los datos intFich =...