title: How to check whether any shape exists?
body: <p>How to check if any shape exists in sheet?</p>
  
  <p>I have used below code:</p>
  
  <pre><code>Sub my()
      Dim shp As Shape
      If Not shp Is Nothing Then
          For Each shp In Sheet1.Shapes
              mesage = shp.TopLeftCell.Address(0, 0)
          Next shp
      Else
          mesage = Sheet1.Cells(1, 12).Address
      End If
  
  End Sub
  </code></pre>
  
  <p>As I have not given shape name, it is executing 'else' part of 'If-else' loop.</p>
  
  <p>I can't give shape name here as each time shape name is different.</p>