Guru do Excel e Power BI

estou tentando rodar esse código:


Public Sub Consolidar()

Dim lin01, lin02, lin03 As Integer
Dim Dados As String


lin01 = 3
Do Until Sheets("01").Cells(lin01, 3).Value = Empty
Dados = Sheets("01").Cells(lin01, 3).Value
Workbooks.Open (ThisWorkbook.Path & "\sala01\" & Dados & ".xlsx")
Workbooks(Dados).Close SaveChanges:=False
lin01 = lin01 + 1

Loop
End Sub


porem toda vez que chega na linha "Workbooks(Dados).Close SaveChanges:=False" ele da Erro em tempo de execução 9: Subscrito fora do intervalo.
Alguem pode me dize o que eu estou fazendo de errado!
Desde já agradeço.

#
Experimente ~~~> Workbooks(Dados & ".xlsx")...

Cara funcionou certinho, muito obrigado mesmo, só me diz como faço para colocar concluido aqui no forum ou não precisa?

Salve, @WILIANOGUIMARAES .

Não está disponível a opção de marcar o tópico como 'resolvido'. Para contornar é possível editar o título no seu primeiro post e acrescentar RESOLVIDO.