Sub CrearArchivoYEnviarCorreo() Dim nombreArchivo As String Dim rutaArchivo As String Dim fso As Object, archivo As Object Dim wsSource As Worksheet, cell As Range ' Define la hoja donde se encuentra el nombre del archivo Set wsSource = ThisWorkbook.Sheets("NombreDeTuHoja") ' Reemplaza "NombreDeTuHoja" ' Recorre las celdas que contienen los nombres de archivo (ajusta el rango según tus necesidades) For Each cell In wsSource.Range("A1:A10") ' Ejemplo: Rango A1:A10 ' Obtener el nombre del archivo de la celda 'nombreArchivo = cell.Value ' Si el nombre está directamente en la celda 'cell' nombreArchivo = wsSource.Cells(cell.Row, "f").Value ' Si el nombre está en la columna "F" de la misma fila ' --- Resto del código (igual que el ejemplo anterior) --- rutaArchivo = "C:\ruta\" & nombreArchivo Set fso = CreateObject("Scripting.FileSystemObject") Set archivo = fso.CreateTextFile(rutaArchivo, True) ' True para sobrescribir si existe ' ... [Tu código para escribir datos en el archivo] ... archivo.Close Set archivo = Nothing Set fso = Nothing ' --- Parte del envío del correo --- Dim OutApp As Object, OutMail As Object Dim strTo As String, strSubject As String, strBody As String strTo = "correo_destinatario@example.com" strSubject = "Asunto del correo" strBody = "Este es el cuerpo del mensaje." Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = strTo .Subject = strSubject .Body = strBody .Attachments.Add rutaArchivo ' <- Usamos la variable rutaArchivo .Display ' O .Send para enviar directamente End With Set OutMail = Nothing Set OutApp = Nothing Next cell ' Pasa a la siguiente celda del rango Set wsSource = Nothing End Sub