Checking to see if shape exists without error handling

[bradyboyy88]

So basically I am using the following code to see if a shape exists

On error Resume Next
If .Shapes("Input_Textbox") Is Nothing Then
   .Shapes.AddTextbox(msoTextOrientationHorizontal, DropDownBox.Left, DropDownBox.Top + Padding, InputBox_Wdith, InputBox_Height).Name = "Input_Textbox"
End If

I want to get around having to use On error because I figure there is a better way to check if something exists without it generating an error.

 

[HackSlash]

Use the code below to make a new function for the check:

<code class="code-10 nolinks" id="code-899207">Function ShapeExists(shpName As String) as Boolean

    Dim myShapes As Shape
    Dim blnFound As Boolean
    
    blnFound = False
    
    For Each myShapes In ActiveSheet.Shapes
        If myShapes.Name = shpName Then
            blnFound = True
            <code class="code-10 nolinks" id="code-899207">Return blnFound</code>
        End If
    Next
    
    Return blnFound 
End Function
</code>

Now add a test before your code like this:

If ShapeExists("Input_Textbox") Then

 

[bradyboyy88]

Use the code below to make a new function for the check:

<code class="code-10 nolinks" id="code-899207">Function ShapeExists(shpName As String) as Boolean

    Dim myShapes As Shape
    Dim blnFound As Boolean
    
    blnFound = False
    
    For Each myShapes In ActiveSheet.Shapes
        If myShapes.Name = shpName Then
            blnFound = True
            <code class="code-10 nolinks" id="code-899207">Return blnFound</code>
        End If
    Next
    
    Return blnFound 
End Function
</code>

Now add a test before your code like this:

If ShapeExists("Input_Textbox") Then

Thanks for the solution. Return draws an error so I removed it from the if then statement and just put set ShapeExists = blnFound at the bottom but it draws an object required error on this function. Not sure why but I see your logic and i like it.

 

[bradyboyy88]

Im an idiot. Remove the set which is used for objects and were good.

 

[HackSlash]

Great! "Return" might be VB.NET and I get confused sometimes. Glad you got it going.