hiding columns automatically

[Guest]

I have a number of columns on a spreadsheet that need not be viewed or
printed if a given field within that range is zero. I am lloking for syntax
that will automatically hide (say) columns a to f where the value in (say)
c20 is less than 1?

I have macro that closes the columns if I select them manually but given
volumes need to do this automatically.

Any ideas


Thanks

 

[Guest]

Something like this perhaps? You will have to assign it to a button or run it
from the macro dialog.

Sub HideAtoF()
If Range("C20").Value < 1 _
Then Range("A:F").Columns.EntireColumn.Hidden = True
End Sub

tj

 

[Guest]

hi,
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Range("C20").Value = 0 Then
Columns("A:F").EntireColumn.Hidden = True
Else
Columns("A:F").EntireColumn.Hidden = False
End If

End Sub