Активирование Excel Sheet для архивации.

Pomogite pls aktivirovat' opredelenniy list v rabochey knige (a tochnee yacheiku v etom liste). Neobxodimo skopirovat' v Clipboard informaciu iz opredelennoy yacheiki etogo lista. Sleduushiy kod ne aktiviruet nugniy list. Gde moget bit' oshibka ?

Spasibo

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

On Error Resume Next
Set xlApp = Nothing
Set xlApp = GetObject(, 'Excel.Application')
If Err.Number <> 0 Then
Set xlApp = CreateObject('Excel.Application')
End If
Err.Clear

Set xlBook = GetObject('C:Book.xls')
xlBook.Application.Visible = True
xlBook.Windows(1).Visible = True

Set xlSheet = xlBook.Worksheets('Trade')
xlSheet.Application.Visible = True
xlSheet.Windows(1).Visible = True

0