1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
LoopThroughAllShapes secundario () myShapes déviles como forma Para cada myShapes en ActiveSheet.Shapes Debug.Print myShapes.Name myShapes.Visible = el msoFalse 'fijaron al msoTrue al unhide Después Submarino del extremo