Macro to unhide a column, and then unhide a second column

Hello, am working with the attached file where if particular text ("Other" or "Summer") is input in either column B or D, the column to the right ("C" or "E") are unhidden. One more step is needed where if additional text is input into column "C" or "E", that column needs to remain unhidden. It currently hides after typing new text.

Any suggestions?

Thanks so much.
Sheryl

.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 2 And Target.Value = "Other" And Application.Columns("C").Hidden = True Then
        Application.Columns("C").EntireColumn.Hidden = False
    ElseIf Target.Column = 4 And Target.Value = "Summer" And Application.Columns("E").Hidden = True Then
        Application.Columns("E").EntireColumn.Hidden = False
    Else
        Exit Sub
    End If
    
End Sub

As before, paste in to the Sheet Level Module

Hi, thanks again for the quick response. This does not seem to be working, perhaps I am doing something incorrect with pasting the code. I pasted after the first set of code in the Sheet1 and the second set of columns "C" and "E" are still hiding after typing any text within those columns. Any suggestions?

Thank you again.
Sheryl

Originally Posted by Mumps1

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make a selection in column B or D.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B,D:D")) Is Nothing Then Exit Sub
    Select Case Target.Column
        Case Is = 2
            If Target = "Other" Then
                Columns("C").EntireColumn.Hidden = True
            Else
                Columns("C").EntireColumn.Hidden = False
            End If
        Case Is = 4
            If Target = "Summer" Then
                Columns("E").EntireColumn.Hidden = True
            Else
                Columns("E").EntireColumn.Hidden = False
            End If
    End Select
End Sub

THANK YOU, this is perfect !

.
Make certain you remove the previous code from your other post. With the Sheet Level Module empty, paste the code above from Post #2
in the Sheet Level Module. Say ... for Sheet 1, right click the Sheet1 tab and select VIEW CODE. Paste the macro code.

When you choose OTHER or SUMMER in the respective columns, the adjoining column becomes unhidden and remains so.

I tried Mumps1 macro here and find it works opposite of what you were seeking. Confusing.