Hide a sheet based on value!
Hi Tom...
Thanks for this. It was a formula based cell value. However, when I insert
your code the following line goes red and it doesn't run.
Else sh.Range("A1").Value = 0 then
Any ideas? Thanks for your guidance so far!
Gordon.
"Tom Ogilvy" wrote:
Jim's assumes you will change the value by editing the cell manually, with
code or possibly using DDE. It the value of the cell is determined by a
formula, you would need to use the calculate event. Then it would be
Private Sub Worksheet_Calculate()
Dim sh as Worksheet
set sh = worksheets("Summary")
With Sheets("Spa")
If sh.Range("A1").Value = 1 Then
.Visible = xlSheetVisible
Else sh.Range("A1").Value = 0 then
.Visible = xlSheetHidden
End If
End With
End Sub
Since you didn't mention any additional sheets, I didn't add that in my
example, but it would follow the same pattern.
--
Regards,
Tom Ogilvy
"Gordon" wrote:
Hi...
Is it possible that a sheet can appear or be hidden based on the value in A1
being 1 or 0.
eg. If A1 = 1 in a sheet called summary then a sheet called Spa is hidden.
If A1 = 0 in a sheet called summary then a sheet called Spa is visible.
Thanks
Gordon.
|