Formatierung

Sub EmailVersand()
Dim rng As Range
Dim sAddress As String
Application.ScreenUpdating = False
Set rng = Range("A1:i54")
sAddress = Range("I28").Value
Workbooks.Add 1
rng.Copy Range("A1")
ActiveWorkbook.SendMail sAddress, "Reklamation QW"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub