Set Shape as Another Shape Fails.. ??

The following code fails:

Function Shapes_Exist(WS As Worksheet, ShapeName As String) As Boolean
' does the shape with the ShapeName name exist?
Dim tmpID As Long

  On Error Resume Next
  Shapes_Exist = False
  tmpID = WS.Shapes(ShapeName).Id
  If IsEmpty(tmpID) Then
    Shapes_Exist = False
  Else
    Shapes_Exist = True
  End If
  On Error GoTo 0

End Function
	
	
TempBool = Shapes_Exist(BWS, GroupName)
If TempBool = True Then
	DupeFound = True
	Set pShape = BWS.Shapes(GroupName)
End If

gives the following error:
Run-Time error '-2147024809 (80070057)':
The item with the specified name wasn't found

the shape with the name "GroupName" does not exist, but my function returns true that it does exist. Not sure why. Please help. Thanks.

Thank-you. It's weird but after I changed the code to this:

Function Shapes_Exist(WS As Worksheet, ShapeName As String, ByRef SetShape As Shape) As Boolean
' does the shape with the ShapeName name exist?
Dim tmpID As Long

    On Error GoTo ShapeNotExist
    Shapes_Exist = False
    tmpID = WS.Shapes(ShapeName).Id
    If IsEmpty(tmpID) Then
      Shapes_Exist = False
    Else
      Shapes_Exist = True
      Set SetShape = WS.Shapes(ShapeName)
    End If

ShapeNotExist:
    On Error GoTo 0
    

End Function

it now works as intended.

I use the function extensively to check if shapes exist, and create or destroy them depending on whether they should exist. It's all working as intended. I am now puzzled - why does this new code work? Thanks!

THANKS!!!

Yes, I rarely use On Error Resume Next. I had borrowed the code from some website, which is where it came from, but when I was debugging, I changed it around to my coding style. Thanks so much for helping me understand this!!