title: How to Check the Name of Picture Inside the Cell?
body: <p>I want to check the name of the picture in a cell, then put a value on the next column based on the name of the picture.</p>
  
  <p>My program only checks if the name of the picture exists in the activesheet. </p>
  
  <pre><code>Sub CheckImageName()
      Dim iRowCountShapes As Integer
      Dim sFindShape As String
  
      iRowCountShapes = 2
  
      While Sheets("Data").Cells(iRowCountShapes, 1) &lt;&gt; ""
  
          If Sheets("Data").Shapes("Rock").Name = "Rock" Then
  
              Sheets("Data").Cells(iRowCountShapes, 3) = "Rock"
  
          ElseIf Sheets("Data").Shapes("Roll").Name = "Roll" Then
  
              Sheets("Data").Cells(iRowCountShapes, 3) = "Roll"
  
          Else
  
              Sheets("Data").Cells(iRowCountShapes, 3) = "Neither"
  
          End If
  
          iRowCountShapes = iRowCountShapes + 1
  
      Wend
  
  End Sub
  </code></pre>