Probleme beim Kopieren eines Blatts mit VBA?

Sub Test()
Dim wkbAuswertdatei             As Workbook
Dim intSheets                   As Integer
Dim wksAuswertdateiNew          As Worksheet
Dim strPathGesamtaufstellung    As String
Dim strDateiname                As String
strPathGesamtaufstellung = "H:\Gesamtaufstellung\2010\"
strDateiname = "16.06.10.xls"
Set wkbAuswertdatei = GetObject(strPathGesamtaufstellung & "\" & strDateiname)
'Falls Blatt aus Vorjahr bereits vorhanden, dieses löschen
For intSheets = wkbAuswertdatei.Sheets.Count To 1 Step -1
If wkbAuswertdatei.Sheets(intSheets).Name = "Sicherung Vorjahr" Then
Application.DisplayAlerts = False
wkbAuswertdatei.Sheets(intSheets).Delete
Application.DisplayAlerts = True
End If
Next
'1. Tabellenblatt kopieren und umbenennen
wkbAuswertdatei.Sheets(1).Copy After:=wkbAuswertdatei.Sheets(Sheets.Count)
Set wksAuswertdateiNew = wkbAuswertdatei.ActiveSheet
wksAuswertdateiNew.Name = "Sicherung Vorjahr"
End Sub