Ét ark i en mappe sendt som vedhæftet fil

Jeg mener ikke at du kan sende et enkelt ark fra en mappe som vedhæftet fil. Og hvis du gemmer/sletter arket med knappen, kan du ikke bruge den :-(

Men nogen har måske en god idé.

I menuen "filer" findes punktet "Send til"
Det har jeg brugt til nu, har bare ikke evnen
til at skrive kode der kan udføre dette menu item.

Jo, jeg kender funktionen og kan sagtens skrive kode til den, men den sender hele mappen, ikke kun et enkelt ark. Hvordan nøjes du med at sende et enkelt ark?

Beklager jeg ikke er bedre til at forklare mig.
Når jeg klikker på "Send til" får jeg mulighed for "send dette ark".
Men er nok forkert at sige det er vedhæftet, mener MS kalder det
som "meddelelsestekst". Det opfylder formålet, beklager jeg kom til at
kalde det vedhæftet. (Skal sige jeg har Office XP)

Ikke for at være morsom (kom sq først til at skrive mormom), nå:
men man kan jo altså nemt kopiere et ark over i en risk mappe, navngive den og sende den som vedhæftet.
Hvordan det skulle kodes uden denne lille omvej, ved jeg ikke.
=|:-}

Hvis du benytter denne makro, vil der blive gemt oveni den samme fil hele tiden, så du slipper for at slette.

Sub NyMappe()
'
' NyMappe Makro
' Makro indspillet 20-03-03 af Carsten Hansen
'

'
    Sheets("NumeroDos").Select
    Sheets("NumeroDos").Name = "NumeroDos"
    Sheets("NumeroDos").Select
    Sheets("NumeroDos").Copy
    ActiveWorkbook.SaveAs FileName:="C:\CH\NumeroDos.xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

Øh ja.

Men har jo stadig ikke sendt nogen e-mail

Skift arknavnet ud med det ark du vil sende.

Sub Makro1()

    Sheets("Ark3").Select
    Sheets("Ark3").Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close
End Sub

Mange tak