Private Sub Worksheet_Change(ByVal R As Range)
Private Sub Worksheet_Change(ByVal R As Range)
If R.Address = "$A$1" Then
If R = "" Then R = 1
Columns("B:AG").Hidden = 1
Cells(1, 2).Resize(, R * 4).EntireColumn.Hidden = 0
Cells(4, 2).Resize(8, R * 4) = ""
End If
End Sub