Run-time error 57121 HELP

[brantjones6]

I have created this macro and it works fine on my computer. However, I sent it to coworkers to use on their computers and it does not work.

Private Sub Workbook_Open()
'
' MoveDateBoxMain Macro
'


'
Sheets("Main").Activate
ActiveSheet.Shapes.Range(Array("DTPicker2")).Select
ActiveSheet.Shapes("DTPicker2").ScaleWidth 1.1, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("DTPicker2").ScaleWidth 0.9, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("DTPicker2").ScaleHeight 1.1, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("DTPicker2").ScaleHeight 0.9, msoFalse, _
msoScaleFromTopLeft

The line in the green text seems to be the issue from the debugger. Any help would be greatly appreciated!!

 

[Michael M]

Have you tried

Private Sub Workbook_Open()
 with Sheets("Main")
  .Shapes.Range(Array("DTPicker2")).Select
  .Shapes("DTPicker2").ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
  .Shapes("DTPicker2").ScaleWidth 0.9, msoFalse,msoScaleFromTopLeft
  .Shapes("DTPicker2").ScaleHeight 1.1, msoFalse,msoScaleFromTopLeft
  .Shapes("DTPicker2").ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
end with
end sub

 

[Norie]

What is the code meant to do?

Is it for resizing a control/shape on a worksheet?

 

[brantjones6]

Michael,

I tried using that and I am still getting the Run-time error 57121 Application-defined or object-defined error.

 

[brantjones6]

Norie,

Yes, this particular macro is meant to resize a date picker control. However, I have several other macros that are producing the same error when used on others computers.