Worksheet Change

 Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1")) Is Nothing Then

Exit Sub

ElseIf Range("A1").Value = 1 Then

Columns("A:K").Hidden = False

Columns("E").Hidden = True

ElseIf Range("A1").Value = 2 Then

Columns("A:K").Hidden = False

Columns("F").Hidden = True

Else

Columns("A:K").Hidden = False

End If

End Sub