Private Sub Worksheet_Change(ByVal Target As Range)
Dim Destinatario As String, Objeto As String
Destinatario = "nombre.apellido@url.com"
Objeto = "Atención tasa de entrega> 10%"

If Range("B1").Value > 0.1 Then
Application.ScreenUpdating = False

ThisWorkbook.ActiveSheet.Cells.Copy
Workbooks.Add

'Pegado especial Valores y formato de los nombres
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Pegado especial Formatos
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Pegado especial Longitud de columnas
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'Envío del libro por email
ActiveWorkbook.SendMail Destinatario, Objeto, AccuseReception = False
' Cierre del libro enviado
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End If

End Sub

