Hide / unhide sheets when a condition is met

[Kain_]

Hello!

I have a problem finding a macro or a way to hide/unhide worksheets.

I searched on Google and found this that almost work:

(Found here on Ozgrid: http://www.ozgrid.com/forum/showthread.php?t=59178)


Private Sub worksheet_change(ByVal target As Excel.Range)
Select Case Worksheets("Calc").Range("A1").Value
Case "A"
Worksheets("Results1").Visible = True
Worksheets("Results2").Visible = False
Worksheets("Results3").Visible = False
Case "B"
Worksheets("Rresults2").Visible = True
Worksheets("Results1").Visible = False
Worksheets("Results3").Visible = False
Case "C"
Worksheets("Results3").Visible = True
Worksheets("Results2").Visible = False
Worksheets("Results1").Visible = False
End Select
End Sub


The this is that if I write "A" "B" or "C" in cell A1, it works.

However, I want to use the result of a formula in the cell (ex.: a IF formula that gives A or B as an answer), which doeasn't work.

Is it possible to make it happen?

[grimes0332]

Also posted on OzGrid

[Kain_]

Yeah, I found this part on this site.

But I can't manage to make if work without a manual action.

So is it possible to "trigger" the hide / unhide with a formula result?

[grimes0332]

Please have a read of the board rules, #8 in particular.

[Kain_]

Thanks, I edited my post for proper reference.