从特定工作表中删除特定列会导致编译错误"Sub or Function not defined"

Question

我正在尝试从特定工作表中删除特定列，但我无法弄清楚为什么这个子给我这个错误：

编译错误：未定义子或函数

我有一个不同的私有子，我已经设置并以相同的方式调用并且工作正常，所以我认为我的语法是关闭的？(我是 vba 😊 的零级(

呼叫潜艇

Sub HideColumns()
...
Call Del_Col_A
...
End Sub

子

Private Sub Del_Col_A()
Sheet("Sheet7").Columns(1).EntireColumn.Delete
End Sub

Answer 1

你忘记了"工作表"末尾的"s">

Private Sub Del_Col_A()
Sheets("Sheet7").Columns(1).EntireColumn.Delete
End Sub

Answer 2

确保"Sheet7"实际上是您的工作表名称，因此：

Sheets("your sheet name").Columns(1).EntireColumn.Delete

如果不是"Sheet7"