Visual Basic - se ha producido el error '-2147024809 (80070057)' /excel2007

Estimados, favor necesito de su ayuda!

Tengo el siguiente error al ejecutar una macro en excel 2007. Esta macro está creada en vb6 y que ejecuta bien en excel 2003.

El error me dice: se ha producido el error '-2147024809 (80070057)' en tiempo de ejecucion.
Al depurar la ejecucion me arroja al codigo donde se encuentra:

ActiveSheet.Shapes("Rectangle 7").Select
Selection.Delete

Por lo que veo este metodo esta exportando data a una hoja temporal la cual se desbloquea y bloquea automaticamente, y es por eso yo creo que el mensaje tambien dice "La seleccion de las formas solicitadas esta bloqueada".

La curiosidad es que al comentar las lineas;

ActiveSheet.Shapes("Rectangle 7").Select
Selection.Delete

toda la data se traspasa, pero luego la macro se pega.

1.- ¿sera que debo publicar el activesheet de otra forma en xl2007?
2.- ¿hay algun metodo que estoy ocupando mal?
3.- ¿ serán que las librerias en xl2007 no consideran este tipo de metodo?


Este es el cogido antes de llegar al punto de depuracion:

' DIVIDE ULTIMO PAPEL
TC(FILA) = TC(FILA) / Div
DURATION(FILA) = DURATION(FILA) / Div
TM(FILA) = TM(FILA) / Div
EXP1_ANEXAR CTL
'****************
WS.Range("A18") = "FAMILIA BCI"
WS.Range("B18") = "MONEDA"
WS.Range("C18") = "CANTIDAD"
WS.Range("D18") = "NOMINAL"
WS.Range("E18") = "VP T COMPRA"
WS.Range("F18") = "VP T MCDO"
WS.Range("G18") = "TASA COMPRA"
WS.Range("H18") = "TASA MCDO"
WS.Range("I18") = "DURATION"
WS.Range("J18") = "MTM"
'****************************************
' EDITA TITULOS

ActiveSheet.Shapes("Rectangle 7").Select
Selection.Delete
Columns("C:C").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Columns("C:C").ColumnWidth = 8.86
Columns("E:E").ColumnWidth = 14.14
Columns("G:G").ColumnWidth = 8.71
Range("G18").Select
Selection.Copy
Range("H18:J18").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("J18").Select
Columns("H:H").ColumnWidth = 8.86
ActiveWindow.LargeScroll ToRight:=-1
Range("A19").Select


Espero sus comentarios.

Buenas tocayo

La verdad que tu duda me parece interesante. Yo diseñando y programando me he encontrado incompatibilidades entre Excel 2003 (y anteriores) con Excel 2007 (y superiores), así que es muy probable que tengas que reprogramar la macro para que vaya en Excel 2007, toda vez que han cambiado funciones tanto de VB como del propio Excel de la versión 2003 a la 2007 (y adelante).

Estoy atento a lo que te vaya diciendo la gente