Este fórum está sendo desativado

[WILIANOGUIMARAES]

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.

[osvaldomp]

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

[WILIANOGUIMARAES]

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

[osvaldomp]

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.