VBA code to apply to whole workbook

[hili1231]

Hi

I need to apply this VBA code to my whole workbook, can anyone help please?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = "$F$6" Then
        Application.EnableEvents = False
            Columns("G:I").EntireColumn.Hidden = False
            If Range("F6").Value = 1 Then
                Columns("G:I").EntireColumn.Hidden = True
            ElseIf Range("F6").Value = 2 Then
                Columns("H:I").EntireColumn.Hidden = True
           ElseIf Range("F6").Value = 3 Then
               Columns("I:I").EntireColumn.Hidden = True
            End If
        Application.EnableEvents = True
    End If
End Sub

Thanks in advance

Chris

[mdmackillop]

One interpretation of your request

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = "$F$6" Then
        Application.EnableEvents = False
        For Each Sh In Worksheets
        With Sh
            .Columns("G:I").EntireColumn.Hidden = False
            If Range("F6").Value = 1 Then
                .Columns("G:I").EntireColumn.Hidden = True
            ElseIf Range("F6").Value = 2 Then
                .Columns("H:I").EntireColumn.Hidden = True
            ElseIf Range("F6").Value = 3 Then
               .Columns("I:I").EntireColumn.Hidden = True
            End If
        End With
        Next Sh
        Application.EnableEvents = True
    End If
End Sub