VBA：无法获取单元格的值

问：

Sub ExtractFeedbackStats()

Const Path As String ="C:\feedbackFiles_4analysis\"
Const fileExtension As String = "*.xlsx"

 'Variables
 Dim feedbackFile As Variant
 Dim analysisFile As Variant
 Dim wb As Workbook
 Dim ws As Worksheet
 Dim Cell As Range
 Dim errorRange As Range
 Dim lastRow As Variant
 Dim counter As Integer
 Dim cellValue As Variant

'Target path with extension
 feedbackFile = Dir(Path & fileExtension)

 'Set constants
 firstRow = "2"
 errorColumn = "AG"

  'Loop through file error detail report, look at HARD_ERROR_CD column
  Do While feedbackFile <> ""

'Open each spreadsheet in folder
Set wb = Workbooks.Open(Filename:=Path & feedbackFile)
DoEvents

'Set parameters for scanning
lastRow = Range("E2").Value + 1

'Set data range to be scanned
Set errorRange = Range(errorColumn & firstRow, errorColumn & lastRow)

'Establish counter for error code instances
counter = 0

'Loop through each row in spreadsheet
For Each Cell In errorRange.Cells
    cellValue = Cell.Value
    
    'If: GR001 Error, Then: Return Customer Code + unique_counter
    If cellValue = "GR001" Then counter = 100

        Next Cell

'Ensure Workbook has closed before moving on to the next line of code
wb.Close SaveChanges:=False
DoEvents

'Get next file name
feedbackFile = Dir

'Close Loop
 Loop
 
 End Sub

我在另一个模块中有一段几乎相同的代码，该代码使用相同的 FOR EACH 循环，并且可以获取所指向的单元格的值。但这个不这样做。尝试使用所有变量类型来使某些东西正常工作，但无法让 vba 识别单元格中的数据。我在这里做错了什么？成功的代码如下所示：

Sub FeedbackFilesExtract()

'Update this folder to local
 Const destPath As String = "C:\feedbackFiles_4analysis\"
 Const srcPath As String = "M:\Feedback\"

 'Variables
 Dim ws As Worksheet
 Dim srcFile As Variant
 Dim destFile As Variant
 Dim File As Variant
 Dim fileArray() As Variant
 Dim dataRange As Range
 Dim Cell As Range
 Dim arrayCounter As Integer
 Dim counter As Integer

'Set data range
Set ws = Sheets("FEEDBACK_FILE_LIST")
secondColumn = "B"
firstRow = "2"
lastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row
Set dataRange = Range(secondColumn & firstRow, secondColumn & lastRow)             

'Set size of array to accomodate list
ReDim fileArray(dataRange.Cells.Count)
                                                                        

'Populate array with list of files from xlsm
 For Each Cell In dataRange.Cells
        fileArray(arrayCounter) = Cell.Value
        arrayCounter = arrayCounter + 1
 Next Cell