Счетчик особых ячеек VBA (xlCellTypeConstants) возвращает 2, если константы отсутствуют

Question

Я новичок в VBA (и программировании в целом), и мне удалось решить множество ошибок с вашими полезными постами и ответами.Однако сейчас я полностью застрял и не смог найти сообщение о конкретной проблеме, с которой я столкнулся.

Я хочу получить количество ячеек в указанной области, которые содержат обратную связь (сочетание текста и чисел),и если число равно 0, то файл должен быть перемещен и переименован.Проблема состоит в том, что count в VBA возвращает 2, где все ячейки явно пусты (а константы специальных ячеек GoTo возвращают 0 в Excel).

Я пробовал Пусто, Пусто и специальные ячейки для получения пустых ячеек.Я ничего не могу заставить работать.Буду очень признателен за предложения и исправления!

Где я ошибся?

Dim wb As Workbook       
Dim FBrange As Range
Dim FileName As String
Dim myPath As String

Set wb = Workbooks.Open(FileName:=myPath & FileName)
Set FBrange = wb.Sheets(1).Range("N2:N500")


'First convert range to text and remove any text qualifier

 On Error Resume Next 

 Selection.TextToColumns _
     Destination:=Range("N1"), DataType:=xlDelimited, _
     TextQualifier:=xlNone, ConsecutiveDelimiter:=False, _
     Tab:=False, Semicolon:=False, Comma:=False, Space:=False,
 Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers:=True 


'Then check for feedback in comments section

On Error Resume Next 

CountConstantsFBrange = FBrange.Cells.SpecialCells(xlCellTypeConstants).Count
If CountConstantsFBrange = 0 Then
    wb.Close
    SaveChanges:=False Name myPath & FileNameFB As MoveTo & _
    "No_Feedback_" & FileNameFB
    GoTo NextFile
End If