Hi

I'm wondering how I do this:

I want one userbutton on a spreadsheet where, if columns D - H are
hidden, the button unhides them, or if they are visible it hides them.

Does anyone have any advice, please?

Thanks in advance

Steve

Insert this line in the button's code module:
Columns("D:H").EntireColumn.Hidden = Not Columns("D:H").EntireColumn.Hidden

Regards,
Stefi

€žSteve€� ezt Ã*rta:

Hi

I'm wondering how I do this:

I want one userbutton on a spreadsheet where, if columns D - H are
hidden, the button unhides them, or if they are visible it hides them.

Does anyone have any advice, please?

Thanks in advance

Steve

On Oct 21, 8:37*pm, Steve wrote:
Hi

I'm wondering how I do this:

I want one userbutton on a spreadsheet where, if columns D - H are
hidden, the button unhides them, or if they are visible it hides them.

Does anyone have any advice, please?

Thanks in advance

Steve

ActiveSheet.Range("D:H").EntireColumn.Hidden = Not
(ActiveSheet.Range("D:H").EntireColumn.Hidden)

Ken Johnson

On Oct 21, 8:54*pm, Ken Johnson wrote:
On Oct 21, 8:37*pm, Steve wrote:

Hi

I'm wondering how I do this:

I want one userbutton on a spreadsheet where, if columns D - H are
hidden, the button unhides them, or if they are visible it hides them.

Does anyone have any advice, please?

Thanks in advance

Steve

ActiveSheet.Range("D:H").EntireColumn.Hidden = Not
(ActiveSheet.Range("D:H").EntireColumn.Hidden)

Ken Johnson

But this is neater...

With ActiveSheet.Columns("D:H")
.Hidden = Not .Hidden
End With

Ken Johnson

Steve,

You could also change the button caption

Private Sub CommandButton1_Click()
With ActiveSheet.Columns("D:H")
.Hidden = Not .Hidden
If .Hidden Then
CommandButton1.Caption = "Show"
Else
CommandButton1.Caption = "Hide"
End If
End With
End Sub

Mike

"Steve" wrote:

Hi

I'm wondering how I do this:

I want one userbutton on a spreadsheet where, if columns D - H are
hidden, the button unhides them, or if they are visible it hides them.

Does anyone have any advice, please?

Thanks in advance

Steve