Kan man beholde celle informatione?

Denne laver et midlertidig ark, som sendes og derefter slettes.

Sub SendArk()

    Sheets("Ark1").Select ' Navnet på dit ark
    Cells.Select
    Selection.Copy
    Set NewSheet = Worksheets.Add
    NewSheet.Name = "temp" ' ret til dit miderligtidige ark
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
   
    ActiveSheet.Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close SaveChanges:=False
    Application.DisplayAlerts = False
    Sheets("temp").Delete ' ret til dit miderligtidige ark
    Application.DisplayAlerts = True
End Sub

Miderligtidige = middeltidlige

Tak for hurtigt svar, men den kommer med en,
Run-time error "1004"
metoden select for klassen worksheet mislykkedes.
Til Kabbak

Er det mig der gør noget forkert, tak for hurtigt svar.

Sub SendArk()

    Sheets("Ark1").Select ' Navnet på dit ark (dette er markeret med gult i debug)
    Cells.Select
    Selection.Copy
    Set NewSheet = Worksheets.Add
    NewSheet.Name = "temp" ' ret til dit middeltidlige ark
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
   
    ActiveSheet.Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close SaveChanges:=False
    Application.DisplayAlerts = False
    Sheets("temp").Delete ' ret til dit middeltidlige ark
    Application.DisplayAlerts = True
End Sub

Hej Kabbak, undskyld det virker ;-)),
det var bare mig der ikke lige var helt vågen, men kan man lave det så man beholder formateringen også, altså det der er med fed skrift bliver ved med det og at række og kolonne højde og brede forbliver det de var fra det originale ark.

Men du kan godt ligge et svar af ligevel, for de point er fortjent til dig.
reedmib

sådan

Sub SendArk()

    Sheets("Ark1").Select ' Navnet på dit ark (dette er markeret med gult i debug)
    Cells.Select
    Selection.Copy
    Set NewSheet = Worksheets.Add
    NewSheet.Name = "temp" ' ret til dit middeltidlige ark
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
   
    ActiveSheet.Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close SaveChanges:=False
    Application.DisplayAlerts = False
    Sheets("temp").Delete ' ret til dit middeltidlige ark
    Application.DisplayAlerts = True
End Sub

Til Kabbak,
1000 tak, det fungere jo bare. Så her dine point.

tak ;-))