Hi Linda

I would suspect a due to a missing reference. Possibly due to the code being
run in an earlier Excel/Office version than the one it was compiled/saved
in.

Tools References, look for MISSING

Regards,
Peter T

"Linda Edlund" wrote in message
7...
Hello,
I'm receiving the following error, in the code which already has worked

Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 20, 20)

With shp
.Name = "abc"
.Fill.ForeColor.SchemeColor = 59
.Line.Weight = 0.25
.Line.ForeColor.SchemeColor = 22
End With

ERROR:
Compile Error: Variable not defined

and it's highlights < msoShapeRectangle ??????


Can anyone tell me how to correct the situation?

Any help will be appreciated

Linda