I have a one-cell range on €œSheet1€� named €œFirst_Column_to_Hide€�. The value
of €œFirst_Column_to_Hide€� is always a column address. Is there a way I can
€œretrieve€� the value from €œFirst_Column_to_Hide€� to substitute for the €œZZZ€�
(placeholder) in the code segment below?

Sub HideUnhideColumns()
Application.ScreenUpdating = False
ActiveSheet.Columns("N:BE").EntireColumn.Hidden = False
ActiveSheet.Columns("ZZZ:BE").EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub

I would appreciate any help on this. Thanks.

ActiveSheet.Columns(Range("First_Column_To_Hide"). Value &
":BE").EntireColumn.Hidden = True


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Bob" wrote in message
...
I have a one-cell range on "Sheet1" named "First_Column_to_Hide". The
value
of "First_Column_to_Hide" is always a column address. Is there a way I
can
"retrieve" the value from "First_Column_to_Hide" to substitute for the
"ZZZ"
(placeholder) in the code segment below?

Sub HideUnhideColumns()
Application.ScreenUpdating = False
ActiveSheet.Columns("N:BE").EntireColumn.Hidden = False
ActiveSheet.Columns("ZZZ:BE").EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub

I would appreciate any help on this. Thanks.

Bob,

That did the trick! As always, thanks again for your help.

Bob


"Bob Phillips" wrote:

ActiveSheet.Columns(Range("First_Column_To_Hide"). Value &
":BE").EntireColumn.Hidden = True


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Bob" wrote in message
...
I have a one-cell range on "Sheet1" named "First_Column_to_Hide". The
value
of "First_Column_to_Hide" is always a column address. Is there a way I
can
"retrieve" the value from "First_Column_to_Hide" to substitute for the
"ZZZ"
(placeholder) in the code segment below?

Sub HideUnhideColumns()
Application.ScreenUpdating = False
ActiveSheet.Columns("N:BE").EntireColumn.Hidden = False
ActiveSheet.Columns("ZZZ:BE").EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub

I would appreciate any help on this. Thanks.