Fout 1004 tijdens uitvoering. Door de toepassing of door object gedefinieerde fout

[DjoeZty]

Hallo vraagbaak der vraagbaken

Ik heb onderstaande code bij het werkblad staan (Excel-object: geen module, geen Thisworkbook).
Nu geeft hij bij de dikgedrukte regel foutmelding 1004.

Hoe kan ik dit oplossen?
Als macro in een Module werkt alles wel, maar ik wil het werkblad inclusief knoppen en macros versturen via Outlook en dat kan niet met modules.

Wie kan mij helpen?

BVD en groeten,
DjoeZty

Sub naar_Cockpit()

Dim Naam As String
Dim Filename As String

Sheets("Invoer PO").Select
Range("c4").Select
Filename = ActiveCell

ChDir "C:\fgC3\GO\"

'ActiveWorkbook.SaveAs Filename:="C:\fgC3\GO\" & Filename, FileFormat:=xlNormal, _
' Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
' CreateBackup:=False

Naam = ActiveWorkbook.Name

Range("c4").Select
Selection.Copy

Workbooks.Open Filename:="C:\fgC3\Cockpit\Cockpit proeforders.xls"
'Sheet("Lijst").Range ("a1")
Sheets("Lijst").Select
Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

Windows(Naam).Activate
Sheets("Invoer PO").Select
Range("b80:ad80").Select
Selection.Copy

Windows("Cockpit proeforders.xls").Activate
Sheets("Lijst").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select

ActiveWorkbook.Save
ActiveWindow.Close

Windows(Naam).Activate
Sheets("Invoer PO").Select
Range("b2").Select
End Sub

 

[E v R]

Al die selects zijn overbodig, in welke sheet van welk werkboek wil je wat plakken?