Vba 子或函数未定义错误？

有人能看看这个代码吗？为什么它会给我这个错误

Sub orgnize()
    Dim Rng As Range

    Application.ScreenUpdating = True
    Workbook("kob1").Activate
    Worksheets(1).Activate
    Worksheets(1).Range("a1,b1,c1,d1,e1,f1,g1,j1,k1,l1,n1,o1,p1").EntireColumn.Delete
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Set Rng = Selection.SpecialCells(xlCellTypeVisible)
    Rng.Copy
    Sheets(2).Range("a1").PasteSpecial xlPasteValues
    Workbooks("kob1").Close SaveChanges:=False
End Sub

---

此行显示错误：

Workbook("kob1").Activate

因此，修改如下：

Workbooks("kob1").Activate

它会很好地工作。

什么是

“kob1”

？工作表名还是工作簿名？