hiding columns

[SamS]

I feel a little lost here and should know this but I can't seem to be able to work out how to hide this column in the routine below.

Dim CELL As Range
For Each CELL In Range("O1:AA1")
If CELL.Value = 0 Then
(Hide this column)
End If
Next

 

[Dragracer]

Hi Sam
The line your looking for is

CELL.EntireColumn.Hidden = True

 

[SamS]

On 2002-10-22 00:02, Dragracer wrote:
Hi Sam
The line your looking for is

CELL.EntireColumn.Hidden = True

That's it, many thanks

 

[Yogi Anand]

On 2002-10-21 23:30, SamS wrote:
I feel a little lost here and should know this but I can't seem to be able to work out how to hide this column in the routine below.

Dim CELL As Range
For Each CELL In Range("O1:AA1")
If CELL.Value = 0 Then
(Hide this column)
End If
Next

Hi Sam:

I will modify the code to read ...

...
Dim CELL As Range
  For Each CELL In Range("O1:AA1")
     If CELL.Value = 0 Then
        Cells(1, CELL.Column).Select
        Selection.EntireColumn.Hidden = True
'       (Hide this column)
     End If
  Next
...

Regards!

Yogi

 

[Yogi Anand]

Hi Sam:

I did not see Dragracer's post before I posted mine -- Dragracer's solution is a lot nicer.

Regards!

Yogi

Edit: corrected typo
This message was edited by Yogi Anand on 2002-10-22 15:58

 

[SamS]

Thanks Yogi, Dragracer's was neat and tidy and did the trick. I tried to use both methods but I'm a little frayed at the moment and everything I tried just was failing. I think I need a holiday. Once again thanks to you both.