Erro em tempo de execução 9: Subscrito fora do intervalo

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.

Boas, @wilian
Experimente trocar a linha
Workbooks(Dados).Close SaveChanges:=False

Por:
Workbooks("Dados").Close SaveChanges:=False

então @AfonsoMira dessa forma que me falou ainda da erro mas coloquei Workbooks(Dados & “.xlsx”)… ai deu certo, eu nem se quer havia pensado nessa possibilidade vacilo meu kkkkk mas muito obrigado pela ajuda, já a segunda vez que me da um auxilio muito obrigado mesmo. só me diz como que eu coloco como concluido aqui no forum :slight_smile:

1 Curtida