Script Hidden Row and Column

Sebelumnya Anang menngucapkan terima kasih yang sebesar-sebesarnya pada EIUG, karena dengan adanya EIUG ini ilmu saya bertambah lagi.Terutama kepada Saudara Imam Muttaqin. Kali ini Anang dapat ilmu tentang bagaimana cara menyembunyikan Baris dan Kolom pada sheet. Karena tidak kesabaran saya maka saya ingin membagikan kembali kepada pembaca yang mulia.
Di bawah ini gb. sheetnya yang akan di sembunyikan :

Dan yang di bawah ini scriptnya, silahkan di copy aja biar cepat :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("Sheet1").Range("A1").Value = 1 Then
Rows("10").EntireRow.Hidden = True
Columns("D").EntireColumn.Hidden = True
Columns("E:F").EntireColumn.Hidden = False
Rows("11:15").EntireRow.Hidden = False
ElseIf Worksheets("Sheet1").Range("A1").Value = 2 Then
Rows("11:15").EntireRow.Hidden = True
Columns("E:F").EntireColumn.Hidden = True
Rows("10").EntireRow.Hidden = False
Columns("D").EntireColumn.Hidden = False
Else
Rows("1:15").EntireRow.Hidden = False
Columns("D:F").EntireColumn.Hidden = False
End If
End Sub
Demikianlah cara bagaimana menyembunyikan Baris dan Kolom. Semoga bermanfaat. Salam