I need the syntax for hiding and showing a combo box in VB. I can get it to
hide using:

ActiveSheet.Shapes("ComboBox3").Select
Selection.Visible = False

But when I try to use

ActiveSheet.Shapes("ComboBox3").Select
Selection.Visible = True

It won't let me see it (Get VB error). I think this is because I need to
turn on the Design Mode. Does anyone know the syntax to do that / solve
this problem. Thank you.

Eliminate the select as you can't select a non-visible item:
ActiveSheet.Shapes("ComboBox3").Visible = True

Charles Chickering

Troubled User wrote:
I need the syntax for hiding and showing a combo box in VB. I can get it to
hide using:

ActiveSheet.Shapes("ComboBox3").Select
Selection.Visible = False

But when I try to use

ActiveSheet.Shapes("ComboBox3").Select
Selection.Visible = True

It won't let me see it (Get VB error). I think this is because I need to
turn on the Design Mode. Does anyone know the syntax to do that / solve
this problem. Thank you.

To add on to this, you can use one macro to do both functions.

If ActiveSheet.Shapes("ComboBox1").Visible = False _
Then
ActiveSheet.Shapes("ComboBox1").Visible = True
Else:
ActiveSheet.Shapes("ComboBox1").Visible = False

End If


"Die_Another_Day" wrote in message
oups.com...
Eliminate the select as you can't select a non-visible item:
ActiveSheet.Shapes("ComboBox3").Visible = True

Charles Chickering

Troubled User wrote:
I need the syntax for hiding and showing a combo box in VB. I can get it
to
hide using:

ActiveSheet.Shapes("ComboBox3").Select
Selection.Visible = False

But when I try to use

ActiveSheet.Shapes("ComboBox3").Select
Selection.Visible = True

It won't let me see it (Get VB error). I think this is because I need to
turn on the Design Mode. Does anyone know the syntax to do that / solve
this problem. Thank you.

With ActiveSheet.Shapes("ComboBox1")
.Visible = Not .Visible
End with

--
Regards,
Tom Ogilvy

"PCLIVE" wrote in message
...
To add on to this, you can use one macro to do both functions.

If ActiveSheet.Shapes("ComboBox1").Visible = False _
Then
ActiveSheet.Shapes("ComboBox1").Visible = True
Else:
ActiveSheet.Shapes("ComboBox1").Visible = False

End If


"Die_Another_Day" wrote in message
oups.com...
Eliminate the select as you can't select a non-visible item:
ActiveSheet.Shapes("ComboBox3").Visible = True

Charles Chickering

Troubled User wrote:
I need the syntax for hiding and showing a combo box in VB. I can get
it to
hide using:

ActiveSheet.Shapes("ComboBox3").Select
Selection.Visible = False

But when I try to use

ActiveSheet.Shapes("ComboBox3").Select
Selection.Visible = True

It won't let me see it (Get VB error). I think this is because I need
to
turn on the Design Mode. Does anyone know the syntax to do that /
solve
this problem. Thank you.

Just wanted to say that a short search through the threads has again saved me
hours of headache.
This was exactly what I was looking for, thank you all so much!

teabag


"Tom Ogilvy" wrote:

With ActiveSheet.Shapes("ComboBox1")
.Visible = Not .Visible
End with

--
Regards,
Tom Ogilvy

"PCLIVE" wrote in message
...
To add on to this, you can use one macro to do both functions.

If ActiveSheet.Shapes("ComboBox1").Visible = False _
Then
ActiveSheet.Shapes("ComboBox1").Visible = True
Else:
ActiveSheet.Shapes("ComboBox1").Visible = False

End If


"Die_Another_Day" wrote in message
oups.com...
Eliminate the select as you can't select a non-visible item:
ActiveSheet.Shapes("ComboBox3").Visible = True

Charles Chickering

Troubled User wrote:
I need the syntax for hiding and showing a combo box in VB. I can get
it to
hide using:

ActiveSheet.Shapes("ComboBox3").Select
Selection.Visible = False

But when I try to use

ActiveSheet.Shapes("ComboBox3").Select
Selection.Visible = True

It won't let me see it (Get VB error). I think this is because I need
to
turn on the Design Mode. Does anyone know the syntax to do that /
solve
this problem. Thank you.