William
It won't work with sheet change event. It only works with sheetcalculate
event. I ma running Excel 2000 so I don't know if that makes any difference.

In your post below you suggest I give a name to a selection of checkboxes -
how do I do that? All I have are checkbox numbers in the and there is no
provision on the checkbox properties.
I am certainly making progress and it seems I am just a step away. Your help
is very much appreciated.

"William" wrote:

Pennington

Firstly, dont use the "Calculate" event, use the "Change" event to execute
your code.

In answer to your post, select all the checkboxes that you want to be hidden
/ visible when you execute your code to hide / unhide rows and give a name
to that selection of checkboxes - In my example I have used "cbgroup".

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("ProcessA")
If Not Target(1).Address = .Range("C4").Address Then Exit Sub
..Range("C7:M19").EntireRow.Hidden = False
..Shapes("cbgroup").Visible = True
If .Range("C4").Value = False Then
..Range("C7:M19").EntireRow.Hidden = True
..Shapes("cbgroup").Visible = False
End If
End With
End Sub

--

-----
XL2003
Regards

William



"Pennington" wrote in message
...
William
I have now got it to work using the sheetcalculate command and have
decided
to hide rows rather than columns but I have got another problem. The True
and
False values are produced from check boxes but when the rows are hidden
the
check boxes are not - they all move down onto the unhidden rows. How can I
hide the check boxes or is there another way of selecting a value by the
click of a mouse?

"William" wrote:

Pennington

Place the code in the "ThisWorkbook" module, NOT a general module.

-----
XL2003
Regards

William



"Pennington" wrote in message
...
Thank William but I can't get it to work. I have placed this code in
Module 1
of the workbook
Private Sub Workbook_Open()
With Sheets("ProcessA")
Range("E3:M3").EntireColumn.Hidden = False
If .Range("C4").Value = False Then _
Range("E3:M3").EntireColumn.Hidden = True
End With
End Sub
Saved the file closed and opening it but all the columns are still
showing

"William" wrote:

Hi..

Private Sub Workbook_Open()
With Sheets("Sheet1")
..Range("E3:M3").EntireColumn.Hidden = False
If .Range("C4").Value = False Then _
..Range("E3:M3").EntireColumn.Hidden = True
End With
End Sub

-----
XL2003
Regards

William




"Pennington" wrote in message
...
I am trying to hide a range of cells when the value in another cell
is
FALSE
and show the range of cells when the value is TRUE. My code is as
follows
but
it doesn't work
Private Sub Workbook_Open()
If Range("C4").Value = False Then
Range("E4:M40").Hide = True
End If
If Range("C4").Value = True Then
Range("E4:M40").Unhide = False
End Sub

How do I make this work?