隐藏列 VBA 代码 - 类型不匹配错误

如何解决隐藏列 VBA 代码 - 类型不匹配错误

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target,Range("$D:D")) Is Nothing Then
    Select Case Range("$D:D")
        Case "Disposal": ACF_Disposal
    End Select
End If

End Sub

我试图隐藏列； G、H、O、S、T 和 U，当在列 D 中选择了“处置”的相关下拉选项时。 我对 VBA 完全陌生。此代码取自在线并与 1x Cell selection 一起使用；即，当 Cell D3 填充有“Disposed”和only Cell D3 时，宏会执行。

已尝试将范围修改为； "D:D,$D,$D;D$ 和 $D3:$D1000 每次都出现相同的错误代码；运行时错误 '13'：类型不匹配

我现在对 VBA 语法有足够的了解来纠正这个问题并感谢任何帮助。

编辑；

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.CountLarge > 1 Exit Sub Then
 If Not Intersect(Target,Range("D:D")) Is Nothing Then
Select Case Target.Value
 Case "Disposal": ACF_Disposal
 End Select
End If
End Sub