Show and Hide TextBox VBA code

[adi_asja]

Great to join this forum & hoping for helps.
I'm trying to arrange 2 VBA code to show and hide the Text Boxes and using 2 auto shapes to executed the macros. Are there any simple VBA code or shorter than below code to doing this? Thanks for advance..

Code:

Sub Show_Box()​

' Show cell value in the textbox​

Sheets(1).Shapes("TextBox" & 1).Visible = True
Sheets(1).Shapes("TextBox" & 2).Visible = True
Sheets(1).Shapes("TextBox" & 3).Visible = True​

End Sub​

​

Sub Hide_Box()​

' Show cell value in the textbox​

Sheets(1).Shapes("TextBox" & 1).Visible = False
Sheets(1).Shapes("TextBox" & 2).Visible = False
Sheets(1).Shapes("TextBox" & 3).Visible = False​

End Sub​

 

[mohan.pandey87]

You can do it like this:

Sub ShowHide_TextBox(byval ShowTextBox as Boolean)
      Sheets(1).Shapes.range(array("TextBox1", "TextBox2", "TextBox3")).Visible = ShowTextBox 
End Sub

 

[adi_asja]

thanks to the reply mohan.

I am newbie in VB,
I just pasted your code in a new module, but when I tried to assign the macro, it is nothing appear.
Suggestion please, how to apply your code?

Thanks lot

 

[royUK]

You need to run that code like this

Option Explicit
Sub ShowHide_TextBox(ByVal ShowTextBox As Boolean)
      Sheets(1).Shapes.Range(Array("TextBox1", "TextBox2", "TextBox3")).Visible = ShowTextBox
End Sub


Sub x()
ShowHide_TextBox False
End Sub
Sub y()
ShowHide_TextBox True
End Sub

This code will toggle the TextBoxes visibilyt

Sub Toggle_Boxes()
Sheets(1).Shapes.Range(Array("TextBox1", "TextBox2", "TextBox3")).Visible = Not _
    Sheets(1).Shapes.Range(Array("TextBox1", "TextBox2", "TextBox3")).Visible
End Sub

 

[adi_asja]

Thanks Lot for the code and advice, I try the code and works properly.
Thanks very much..