it works


Set shp = sld.Shapes("CheckBox1")
shp.ZOrder msoBringForward
shp.ZOrder msoSendToBack