求助各位大侠 excel的VBA运行错误9

Question

在运行VBA的时候有这么一个对话框，不知道这段程序哪里需要修改
Sub 筛选()
'
' 筛选 Macro
' 宏由 丑小ya 录制，时间: 2011/5/26
'
Dim name As String
name = InputBox("请输入查询人员姓名", "明星公司")
Sheets("员工人事资料").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=name
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter
Sheets("明星公司").Select
End Sub

'

Answer 1

你有没"员工人事资料" ,"明星公司" 这2个表,a,b列有没你查找的姓名

Answer 2

你点调试 然后 在程序运行的开始dim那设置断点
然后逐行运行 按f8 按到出错的地方 看是不是哪写错了 这是一种调试方法

Answer 3

下界越标 肯定是明星公司或者员工人事资料工作表没有。