VBA help

[Mike89]

Hi,

I'm trying to combine multiple VBA codes but i'm having trouble.

I currently have;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b26").Value = "Hide" Then
Columns("b:m").EntireColumn.Hidden = True
Else
Columns("b:m").EntireColumn.Hidden = False
End If
End Sub

but I need to combine the above with these;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("n26").Value = "Hide" Then
Columns("n:y").EntireColumn.Hidden = True
Else
Columns("n:y").EntireColumn.Hidden = False
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("z26").Value = "Hide" Then
Columns("z:ak").EntireColumn.Hidden = True
Else
Columns("z:ak").EntireColumn.Hidden = False
End If
End Sub

and so on...

Many thanks in advance

 

[Michael M]

Maybe something like

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Columns.EntireColumn.Hidden = False
If Range("b26").Value = "Hide" Then Columns("b:m").EntireColumn.Hidden = True
If Range("n26").Value = "Hide" Then Columns("n:y").EntireColumn.Hidden = True
If Range("z26").Value = "Hide" Then Columns("z:ak").EntireColumn.Hidden = True
End Sub

 

[steve the fish]

How will you remove the 'hide' once the columns have been hidden. ie you want them unhidden again.

 

[Mike89]

Thanks!

Your suggestion works!

Steve Its data that is also logged on a hidden sheet but i wont need to see again on the current sheet.