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