Hide columns on sheet2 based on cell on sheet1?

This is what I would like to do if possible:

If E9 on Sheet1 is 1, then hide columns F-L on Sheet2.

Thanks for helping me.

Excel 2000

Hi proepert
In the worksheet1 module

Private Sub Worksheet_Deactivate()
If Range("E9") = 1 Then
     Sheets("sheet2").Columns("F:L").EntireColumn.Hidden = True
Else
Sheets("sheet2").Columns("F:L").EntireColumn.Hidden = False
End If
End Sub

try this code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E9")) Is Nothing Then
        If Range("E9") = 1 Then
            Sheets(2).Range("F:L").EntireColumn.Hidden = True
        Else
            Sheets(2).Range("F:L").EntireColumn.Hidden = False
        End If
    End If
End Sub

One line

Option Explicit

Private Sub Worksheet_Deactivate()
     Sheets("sheet2").Columns("F:L").EntireColumn.Hidden = Range("E9").Value
End Sub

proepert

Thanks for the rep.
If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save