How to check whether any shape exists?
<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>