Shapes kopieren - Fehler 1004

Sub SU_Shapes_Copy()
Dim oWB As Workbook, oTB As Workbook, oTab As Worksheet, oShp As Shape
Set oWB = Workbooks("_Offkalk Kaba exos-28.01.11.xlsm")
Set oTB = ThisWorkbook
oTB.Activate
For Each oTab In oWB.Worksheets
oWB.Worksheets(oTab.Name).Unprotect
oTB.Worksheets(oTab.Name).Activate
For Each oShp In oWB.Worksheets(oTab.Name).Shapes
oShp.copy
oTB.Worksheets(oTab.Name).Paste
With Selection
.Top = oShp.Top
.Left = oShp.Left
End With
Next oShp
Next oTab
End 

Sub