VB RUN TIME error 1004!

[sfs991126]

这是excel中的vb code,

For ck = 1 To CCount
UpdateCountry = CountrySN(ck)
If UpdateCountry <> "" Then
For k = 1 To CatCount
TableName = UpdateCountry & "_" & CatNum(k)
Temp = Range(TableName).Address(External:=True) <<<这一句出错
Temp = Mid(Temp, InStr(Temp, "]") + 1, Len(Temp))
WSN = Replace(Left(Temp, InStr(Temp, "!") - 1), "'", "")
TCS = Range(TableName).Column
TRS = Range(TableName).Row

假设ccount 是10
CountrySN(ck)中,1是china,2是usa,3是japan
cat_num = 1 ,2 ,3, 4,......
等等
为何我run的时候,会出现run time error 1004?
它说我是 method 'range' of object '_global' failed ,怎解决?

[Tiger_Zhao]

就是用 TableName 命名的名称定义在 Excel 中不存在。