Как открыть макрос с включенным Excel в VBA

Question

Идея в том, что я могу открывать каждый xls в своей папке, сканировать листы и копировать и вставлять в мой открытый лист.По какой-то странной причине мой саб говорит, что не может найти мою папку и продолжает спрашивать, была ли она удалена.Может ли кто-нибудь помочь мне устранить неполадки

Option Explicit
Option Base 1

Sub OpenWorkbooks()
Dim w As Worksheet, i As Integer, j As Integer
Dim Folder As String, FileName As String
Dim aWB As Workbook, tWB As Workbook
Dim nr As Integer, nc As Integer
Dim S() As Integer, mx As Integer
Dim c As Variant
Dim example As Range
Set example = ThisWorkbook.Worksheets("Sheet1").Range("A1")
nr = 9
nc = 5
ReDim S(nr, nc)
Folder = "C:\Users\Dhruv\Desktop\macro"
FileName = Dir(Folder & "\*.xlsm")
Do
    Workbooks.Open Folder & "\" & FileName
    Set aWB = ActiveWorkbook
    For Each w In Worksheets
        For i = 1 To nr
            For j = 1 To nc
                 If w.Range("A1:D6").Cells(i, j) = "Time" Then
                    c = c + 1
                    example.Offset(i + c, j) = c
                 End If
            Next j
        Next i
    Next
    aWB.Close SaveChanges:=False
    FileName = Dir
Loop Until FileName = " "
End Sub