Actividad pública reciente
Ha empezado a seguir a 
Dante Amor
Dante Amor
Ha valorado "Excelente" la respuesta
Enviar Rango de Celdas a diferentes correos electrónicos
Te anexo la macro actualizada Sub Folio() 'Act.Por.Dante Amor Dim NombreArchivo As String, ruta As String, j As Integer, i As Integer Dim dam As Object ' ruta = "C:\Compartida\COLILLAS DE PAGO" ' j = 1 For i = 2 To Range("H" &...