错误下标超出范围

Question

我正在VBA中为userform编写一个宏来填充数据表。 当我运行它时，我收到错误消息“下标超出范围”。

这是一段代码：

Dim iRow As Long
Dim dados As Worksheet              'sheet intended to receive data
Set dados = Worksheets("Planilha3") '
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
  SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

返回错误的行是：

Set dados = Worksheets("Planilha3")

任何人都可以帮我吗？我认为这不是什么大问题，但凭借我的初学者技能，我还无法解决它。

提前致谢，

Portolon