title: Show and Hide Shapes in Active Worksheet
body: <pre><code>ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Visible = Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Visible
  ActiveSheet.Shapes.Range(Array("Rounded Rectangle 3")).Visible = Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle 3")).Visible
  ActiveSheet.Shapes.Range(Array("Rounded Rectangle 4")).Visible = Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle 4")).Visible
  ActiveSheet.Shapes.Range(Array("Rounded Rectangle 5")).Visible = Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle 5")).Visible
  </code></pre>
  
  <p>This is the sample of code macro that i use</p>
  
  <p>i want to know how we can on run this code to hide only rectangle 1 line</p>
  
  <p>like</p>
  
  <pre><code>For i = 1 To ActiveSheet.Shapes.Count
      ActiveSheet.Shapes.Range(Array("Rounded Rectangle *")).Visible = _ 
      Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle *")).Visible
  Next i
  </code></pre>
  
  <p>I just dont know how to simplify correctly</p>