Well you needn't hide an entire row, you can simply mask the cell like
this (use under a button if you wish):


VBA Code:
--------------------


Sub Unhide_on_answer()
If ActiveSheet.Range("A1").Value = "Yes" Then
Range("C76").NumberFormat = ""
Else
Range("C76").NumberFormat = ";;;"
End If
End Sub
--------------------


The above goes in a standard module, the below goes in the worksheet
code module:


VBA Code:
--------------------


Private Sub Worksheet_Activate()
Me.Range("C76").NumberFormat = ";;;"
End Sub
--------------------


and to clear all unlocked cells on a PROTECTED (it must be protected
for locked cells to be seen as such) the code would be:


VBA Code:
--------------------


Sub d()
On Error Resume Next
ActiveSheet.UsedRange = ""
End Sub

--------------------






Rob52;646789 Wrote:

I have now created a check box to hide row 70. The code was gleamed
from
previous posting to this area.

Private Sub CheckBox1_Click()

If CheckBox1 = True Then
ActiveSheet.Cells.EntireRow("70").Hidden = False
Else
ActiveSheet.Cells.EntireRow("70").Hidden = True
End If

End Sub

This should work. Thanks for your help.


--
Rob52


"Rob52" wrote:

Thank you for the code.

The equation I gave you sits in cell C76. I have a series of
questions that
the user answers. I want them to answer the questions and once
finished,
somehow have the answer displayed (but not before) perhaps click a
button.
These are other calculations that are made during the course of
answering the
questions - auto calculation of these is okay.

Perhaps hiding the cell or row until we click a button?

In regards to the second part of my question we can leave that out
for now.


--
Rob52


"Simon Lloyd" wrote:


Sorry Rob that should have read:



VBA Code:
--------------------



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Me.Range("A1").Value = "No" Then
Application.Calculation = xlCalculationManual
Else
Application.Calculation = xlCalculationAutomatic
End If
End Sub

--------------------






Simon Lloyd;645896 Wrote:

Perhaps something along these lines but i need more information
from
you:





VBA Code:
--------------------



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Me.Range("A1").Value = "No" Then
Application.Calculation = xlCalculationManual
Else
Application.Calculation = xlCalculationManual
End If
End Sub

--------------------





HOW TO SAVE A WORKSHEET EVENT MACRO[/b]
1. *COPY* THE MACRO ABOVE PLACING THE CURSOR TO THE LEFT OF THE
CODE
BOX HOLD THE *CTRL & LEFT CLICK,* THEN *RIGHT CLICK* SELECTED CODE
AND
*COPY.*
2. OPEN YOUR WORKBOOK AND *RIGHT CLICK* ON THE *WORKSHEET'S NAME
TAB*
FOR THE WORKSHEET THE MACRO WILL RUN ON.
3. *LEFT CLICK* ON *VIEW CODE* IN THE POP UP MENU.
4. *PASTE* THE MACRO CODE USING *CTRL+V*
5. MAKE ANY CUSTOM CHANGES TO THE MACRO IF NEEDED AT THIS TIME.
6. *SAVE* THE MACRO IN YOUR WORKBOOK USING [b]CTRL+Sr


--
Simon Lloyd

Regards,
Simon Lloyd
'Microsoft Office Help' ('The Code Cage - Microsoft Office Help -
Microsoft Office Discussion' (http://www.thecodecage.com))

------------------------------------------------------------------------
Simon Lloyd's Profile: 1
View this thread: 'Delay Calculation of A Cell - The Code Cage
Forums' (http://www.thecodecage.com/forumz/sh...d.php?t=180015)

'Microsoft Office Help' (http://www.thecodecage.com)

.



--
Simon Lloyd

Regards,
Simon Lloyd
'Microsoft Office Help' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: 1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=180015

Microsoft Office Help