请教 excel sheet区域转换为表报错

Dim oSh     As Worksheet
Set oSh = Application.Worksheets("costcenter")
oSh.Select
//执行到下面一句时候报错
oSh .ListObjects.Add(xlSrcRange, Range("$A$1:$J$8888"), , xlYes).Name = _
                "Table1"



--------------------编程问答-------------------- 查msdn啊，看问题提示啊

补充：VB ,  VBA