Changing Visibility of a Text Box

[CS100]

Hi all,,

I am fairly new to VBA, I have been trying to write a code that changes the visibility of a text box based on changes of selection of a dropdown list.
Basically, I want to check if the user chose a specific option from the dropdown list, if he did, I want to make the text box visible, otherwise I would like to keep it hidden.

This is my code, I keep getting an error that says "unable to get the oleobjects property of the worksheet class textbox visibility" when I run the code.

Sub DropDown2767_Change()    
    If Sheets("Effective Skin Calcs").Range("I18") = 1 Then
    ActiveSheet.OLEObjects("TextBox 3").Visible = True
    
    Else
    ActiveSheet.OLEObjects("TextBox 3").Visible = False
    
    End If
    
    
End Sub

Thank you people in advance,

 

[Norie]

How did you create the textbox?

 

[CS100]

from the Insert tab,, just a regular text box,,

 

[Norie]

That, and the textbox name, suggests that it's a Forms textbox and those aren't part of the OLEObjects collection so instead of OLEObjects try using Shapes.

Sub DropDown2767_Change()
    If Sheets("Effective Skin Calcs").Range("I18") = 1 Then
        ActiveSheet.Shapes("TextBox 3").Visible = True
    Else
        ActiveSheet.Shapes("TextBox 3").Visible = False
    End If
End Sub

 

[CS100]

Thank you so much, it works perfectly,,