PDA

View Full Version : VBA code to apply to whole workbook



hili1231
07-20-2016, 05:20 AM
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
07-20-2016, 06:46 AM
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