1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
Sub LoopThroughAllShapes () Тусклые myShapes как форма Для каждого myShapes в ActiveSheet.Shapes Debug.Print myShapes.Name myShapes.Visible = msoFalse 'установили к msoTrue к unhide Затем Подводная лодка конца