[求助]EXCEL2000-->97

xaojang

我在EXCEL2000下编辑了一个VBA程序，其中一句是
Private Sub cob_Change()
A1 = Cob.Value
    If Cob.ListCount = 0 Then
        With Worksheets("输入单位")
            Set a = .[d2].CurrentRegion
            a.Sort Key1:=.Range("d2"), SortMethod:=xlPinYin, Header:=xlGuess
            s = a.Rows.Count
  
在2000下能正常运行，但将文件拷到EXCEL97下后提示无效的范围，无法运行程序。估计是   Set a = .[d2].CurrentRegion 出问题，有没有其他方法代替以便其能在97下运行。
该如何解决？因有其他应用，无法将其升至2000。
盼高手出手！

xaojang

又试了一下，还是不行

[此贴子已经被作者于2003-12-17 22:40:39编辑过]

sqac

如果将a定义为range或Variant，Set a = .[d2].CurrentRegion 在97下是能够正常运行的。