Dante Amor respondió:
Te anexo la macro con los cambios Private Sub CommandButton1_Click() Range("J251:K352").Select With Selection.Font .ColorIndex = xlAutomatic .TintAndShade = 0 End With Range("a5:l355").Copy Set dam = CreateObject("outlook.application").createitem(0)...
Enviar rango de celdas como imagen por outlook con macros