Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$1" Then
Columns("B:K").Hidden = True
Range(Cells(1, 2), Cells(1, 1 + Target.Value)).EntireColumn.Hidden = False
End If
Application.ScreenUpdating = True
End Sub