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
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