Удаление определенного столбца из определенного рабочего листа приводит к ошибке компиляции «Sub или Function notfined»

Question

Я пытаюсь удалить конкретный столбец из определенного листа и не могу понять, почему этот саб дает мне эту ошибку:

Ошибка компиляции: Sub или Function не определены

У меня есть другая частная сабвуфер, которую я настроил и вызывал таким же образом, и работает нормально, так что я думаю, что мой синтаксис выключен?(У меня нулевой уровень на VBA ?)

Вызов Sub

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

Sub

Private Sub Del_Col_A()

   Sheet("Sheet7").Columns(1).EntireColumn.Delete

End Sub

Answer 1

Убедитесь, что "Sheet7" на самом деле ваше имя листа, поэтому:

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

, если это не "Sheet7"

Answer 2

Вы забыли 's' в конце 'листов'

Private Sub Del_Col_A()

  Sheets("Sheet7").Columns(1).EntireColumn.Delete

End Sub