i need help with macro for hiding column

[santoshloka]

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = "$D$5" Then
    Dim b13val As String
    
    b13val = Target.Value
    
    If b13val = "1" Then
        Sheets("INPUT").Range("E:G").EntireColumn.Hidden = True
        ElseIf b13val = "2" Or b13val = "3" Or b13val = "4" Then
        Sheets("INPUT").Range.Range("F:G").EntireColumn.Show
    If b13val = "2" Then
        Sheets("INPUT").Range("F:G").EntireColumn.Hidden = True
        ElseIf b13val = "1" Or b13val = "3" Or b13val = "4" Then
        Sheets("INPUT").Range.Range("F:G").EntireColumn.Show
    If b13val = "3" Then
        Sheets("INPUT").Range("G").EntireColumn.Hidden = True
        ElseIf b13val = "1" Or b13val = "2" Or b13val = "4" Then
        Sheets("INPUT").Range.Range("F:G").EntireColumn.Show
        
    ElseIf b13val = "4" Or b13val = "" Then
        Sheets("INPUT").Columns("D:G").Hidden = False
    Else
        Sheets("INPUT").Columns.Hidden = False
    End If
End If
End If
End If


End Sub

please find the image below
https://drive.google.com/open?id=0B8-usD7SI_4aMzR1VlU5M2gxY3c

 

[Joe4]

So what's the problem, exactly? I think you need to explain exactly what you want to happen.

You may also want to take a look at cleaning up some of your IF statements and making use of CASE instead.
See: https://www.techonthenet.com/excel/formulas/case.php

 

[santoshloka]

i have given event change code tigger it ,but its not working it may with with case statement,,can i get the code
when i give the value in D5=1
only D column need to appear
if i give value in D5=2
only D,E column need to appear
if i give value in D5=3
only D,E,F column need to appear
if i give value in D5=4
only D,E,F,G, column need to appear

 

[Joe4]

When you say "only D column need to appear", do you mean on the whole entire sheet? Or just when considering columns D, E, F, and G?

Are you really saying the following?
If D5=1, hide columns E,F,G
If D5=2, hide columns F,G
If D5=3, hide column G
If D5=4, show all columns

 

[santoshloka]

just considering D,E,F,G column depends on D5 cell value

 

[Joe4]

Then try this:

Private Sub Worksheet_Change(ByVal Target As Range)
    
'   Only run if cell D5 updated
    If Target.Address(0, 0) = "D5" Then
'       Initially unide all columns
        Columns("E:G").EntireColumn.Hidden = False
'       Hide columns depending on values
        Select Case Target
            Case 1
                Columns("E:G").EntireColumn.Hidden = True
            Case 2
                Columns("F:G").EntireColumn.Hidden = True
            Case 3
                Columns("G").EntireColumn.Hidden = True
        End Select
    End If
    
End Sub

 

[santoshloka]

Thank you @Joe4