请老师看看是什么问题

股网千王

在做前面的表单的时候都一切正常，可是等后面很多的代码搞定后前面又出现了问题，提示是：对象变量或with块变量未设置。看入库单，和出库单。
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ActiveCell.Value = ListBox1.Value
    Set rng = Sheets("基本资料").Range("A:A").Find(ActiveCell, , , xlWhole)
    ActiveCell.Offset(0, 1) = rng.Offset(0, 1)
    ActiveCell.Offset(0, 2) = rng.Offset(0, 2)
    ActiveCell.Offset(0, 3) = rng.Offset(0, 3)
    ActiveCell.Offset(0, 4) = rng.Offset(0, 4)
    Me.ListBox1.Clear
    Me.TextBox1 = ""
    Me.ListBox1.Visible = False
    Me.TextBox1.Visible = False
End Sub
运行到第三行 出现这个提示，附件里是刚开始做的表单，运行正常。
在附件里Set Rng = Sheets("基本资料").Range("A:A").Find(ActiveCell, , , xlWhole)红字的地方Rng是大写的，可是后来变成了rng小写了，改不过来。 山西天海.zip (504.63 KB, 下载次数: 2)

2013-5-14 13:46 上传

点击文件名下载附件
这个不正常

JJ.zip (64.19 KB, 下载次数: 2)

2013-5-14 13:45 上传

点击文件名下载附件
正常运行

股网千王

完全一样的代码，在“JJ”里面运行正常，在“山西天海”里不能正常运行

股网千王

怎么老师都不理我了{:soso_e115:}