Så er der brug for en skarp igen

noget i denne stil

Sub Finish()
'
' Finish Macro

'
Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Range("G11").Select
    ActiveWorkbook.SaveAs Filename:="C:\Mappe\" & Now() & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
       
    If Application.MailSystem <> xlNoMailSystem Then
  With ActiveWorkbook
        .SendMail _
        Recipients:="Peter@hej.dk", _
        Subject:="her skal subject stå"
    End With
Application.MailLogoff
  Else
    MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If

    ActiveWorkbook.Close
   

End Sub

Hej kabbak,

Den gik ikke første gang :-( Den laver en fejlmeddelelse som lyder:
Run time error 1004
Der kunne ikke opnåes adgang til filen. Benyt en af....
Mappe eksisterer
Mappe ikke skrivebeskyttet
Filnavn ikke indeholde ugyldige tegn

og den markerer dette hvis jeg prøver at debugge:
ActiveWorkbook.SaveAs Filename:="C:\Mappe\" & Now() & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Mvh

det var :, i tiden den ikke vil godtage.


Sub Finish()
Dim Navn As String
' Finish Macro

'
Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Range("G11").Select
  Navn = Format(Now(), "dd-mm-yyyy hh_nn_ss") ' der tillades ikke colon (:) i filnavnet, ret selv i formater
    ActiveWorkbook.SaveAs Filename:="C:\Mappe\" & Navn & ".xls"
   
    If Application.MailSystem <> xlNoMailSystem Then ' tjekker om der et mailsystem
  With ActiveWorkbook
        .SendMail _
        Recipients:="Peter@hej.dk", _
        Subject:="her skal subject stå"
    End With
Application.MailLogoff
  Else
    MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If

    ActiveWorkbook.Close
   

End Sub

Hej kabbak,
Læg venligst et svar så du kan få point. Det virker perfekt!
Tak for hjælpen - endnu en gang.
Mvh

et svar ;-))