permission after migrate to off.XP

[resize32]

hi,
i am new in macro, and this is my first time handling macro. i know vb
well, but not this one.

my problem is i have excel file using macro in office 97 that doing
fine when i used it. but when i decided to migate my comp. to XP and
using office xp. it doesn't work and showing error message "permission
denied". this part of the code

For Y = 4 To LastWellRow
If DSD.Cells(Y, 19 + d) > 0 Then
Set A = WY.Shapes.AddShape(msoShapeRectangle, DSD.Cells(Y, 20 + d),
DSD.Cells(Y, 21 + d), DSD.Cells(Y, 19 + d), BarThickness)
A.Name = DSD.Cells(Y, 3)
A.OnAction = ("Row" & Y)
BarType = DSD.Cells(Y, 4)
GD.Activate
GD.Shapes("BarType" & BarType).PickUp
A.Apply
A.ZOrder msoSendToBack

the debugger stopped at a.apply

help me please, i am completely confused about it

 

[resize32]

it's OK, i allready fixed i