Inhalte in andere Datei kopieren

Sub Import()
Dim wsh As Worksheet
Workbooks.Open Filename:= _
"C:\Documents and Settings\sz710f\Desktop\DWA2\CH Overview until July 07.xls"
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Number = ActiveWorkbook.Worksheets.Count
Number = Number - 1
ActiveWorkbook.Worksheets(Number).Rows("4:5").Select
wsh = ActiveWorkbook.Worksheets(Number).name
Selection.Copy
Windows("Book1").Activate
Range("a4") = wsh
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("A:A").EntireColumn.AutoFit
End Sub

Leider funktioniert es nicht, ich bekomme die Fehlermeldung Type Mismatch.
Scheinbar kann er mit Number nix anfangen...
Wie kann ich auf das Workbook mit dem Index Number, zb 20, zugreifen?
Wer kann mir helfen?
Danke und Gruss,
Gromminger