Bei nachffolgendem Code bekomme ich einen Laufzeitfehler 1004 "Die PasteSpecial-Methode des Range-Objekts konnte nicht ausgeführt werden."

Wie bekomme ich es hin, dass die Formatierungen des einen Blatts auf das andere übertragen werden. Mit Range("A1").Select habe ich es schon versucht anstatt von Cells.Select ... weiß jemand Rat?

KeepFormat = MsgBox("Soll das Originalformat beibehalten werden?", vbYesNo + vbQuestion, "Format beibehalten?")

If KeepFormat = vbYes Then

NewWorkbook = ActiveWorkbook.Name

Workbooks(OldWorkbook).Activate
Cells.Select

Workbooks(NewWorkbook).Activate
Cells.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If

Danke!
Andreas