请问怎么实现按单元表格内容自动隐藏整列或取消

写个宏来实现，下面是个动图（可能需要点进去后才能动），当A1=1时，G列隐藏，A1=2时，G列恢复，A1=其它值时，不做任何操作

以下是代码，写在相应Sheet中的chenge事件下
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "A1" And Target.Value = 1 Then
Range("H:H").EntireColumn.Hidden = 1
ElseIf Target.Address(0, 0) = "A1" And Target.Value = 2 Then
Range("H:H").EntireColumn.Hidden = 0
End If
Application.EnableEvents = True
End Sub