>>188
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test2()
　　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 54, 13.5).Select
　　Cells(1, 2).Select
　　Sleep 3000
　　Cells(1, 2).Value = 1
End Sub