Hi

I'm trying to hide specific columsn in my worksheet based on the value in cell B3

This is my code at the moment

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'To Hide Columns for Machine Report
If wSheet.Range("B3") = "Machine" Then
Machine_Lines.Columns("F:Q").EntireColumn.Hidden = True
Machine_Lines.Columns("AB:AE").EntireColumn.Hidden = True
Machine_Lines.Columns("AN:AS").EntireColumn.Hidden = True
End If

'To Hide Columns for Hand Lines Report
If wSheet.Range("B3") = "Hand" Then
Machine_Lines.Columns("F:F").EntireColumn.Hidden = True
Machine_Lines.Columns("K:AB").EntireColumn.Hidden = True
Machine_Lines.Columns("AM:AR").EntireColumn.Hidden = True
End If

End Sub
But it doesn't seem to work?

Am I missing something? I need it to hide the certain columns every time cell b3 is changed as there are a lot of helper columns in the sheet which make for messy reading and reporting

Thanks

Dan