Mangler hjælp til en EXCEL til mail funktion

Du kunne gøre det lidt anderledes.
Kopier hele arket og slet alt det der ligger ud over P33.
På den måde bibeholdes formateringen

    Sheets("Ark1").Copy  'kopier ark1 til ny mappe
    Range([Q34], [Q34].End(xlToRight)).EntireColumn.Clear 
    Range([Q34], [Q34].End(xlDown)).EntireRow.Clear
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close SaveChanges:=False

>>bak


Det virker... kan jeg så også flytte en mail adresse fra ark 10 celle d15 til "TO" i mailprogrammet bruger outlook office 2000

venligst lav et svar så jeg kan flytte nogle point

mvh
Thomas

Jeg vender lige tilbage imorgen med svar på det sidste spørgsmål