you have to run through the shapes collection
VB Code:
  1. Sub shapes()
  2. Dim s As Shape
  3. For Each Shape In Sheet4.shapes 'use whatever sheet reference
  4.      If s.Name = gcell Then
  5.      MsgBox "shape exists"
  6.      Exit For
  7. Next
  8. End Sub