Does Shape Exist

Function doesShapeExist(shapeName As String, slide As Integer)
    Dim s As Shape

    For Each s In ActivePresentation.Slides(slide).Shapes
        If s.Name = shapeName Then
            doesShapeExist = true
            Exit Function
        End If
    Next

    doesShapeExist = false
End Function