1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
LoopThroughAllShapes secondario () myShapes fiochi come figura Per l'ogni myShapes in ActiveSheet.Shapes Debug.Print myShapes.Name myShapes.Visible = il msoFalse 'si sono regolati a msoTrue al unhide Dopo Sommergibile dell'estremità