Excel VBA Change Event Show/Hide Graphic

Hi

I'm trying to show/hide a text box based on a cell value but can't seem to get it to work. The cell value is controlled by Option Buttons.

This line of code works when I attach to a command button so I must be going wrong with the change event.

ActiveSheet.Shapes.Range(Array("RoofingTextBox")).Visible = msoTrue

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Target.Worksheet.Range("S2")) Is Nothing Then

If ActiveSheet.Range("S2") = 3 Then

ActiveSheet.Shapes.Range(Array("RoofingTextBox")).Visible = msoTrue

Else: ActiveSheet.Shapes.Range(Array("RoofingTextBox")).Visible = msoFalse

End If

End Sub

Any help would be greatly appreciated.

Thanks

Hi TMS,

Still no luck, will keep fiddling!

Thanks
Jo

Hi TMS,

I've uploaded the file I'm working on. I hope you can spot where I'm going wrong, I'm pulling my hair out!

Thanks
Jo

Ok so I've discovered that if I manually change the cell rather than it changing via formula it works, so maybe I have to rethink my method! Any suggestions?