vba编译错误:子工程或函数未定义，麻烦大神看看！

1143001647

Sub 客户管理_单击()
Dim count As Long
Dim i As Integer
Sheet("客户资料管理").Select
If Trim(Cells(6, 1).Value) = "" Then
MsgBox "输入错误：企业编号必须填写！", vbOKOnly
Exit Sub
End If
count = Val(Sheet1.Cells(3, 7).Value)
For i = 1 To 7
Cells(count + 9, i).Value = Cells(6, 1).Value
Next i
End Sub

auqblfyv

运行没有问题啊！！！

1143001647

谢谢！我再看看！