What folder do you pick ?

Sub M_snb()
  ReDim sp(2000, 4)

  With Application.FileDialog(4)
    If .Show Then
      c00 = .SelectedItems(1) & "\"
      c01 = Dir(c00 & "*.xls*")

      Do Until c01 = ""
        msgbox c00 & c01
        With GetObject(c00 & c01)
          sn = .Sheets(1).Range("A1:C27")
          .Close 0
        End With

        For j = 1 To 5
          sp(n, j - 1) = sn(Choose(j, 3, 17, 21, 23, 27), IIf(j = 1, 2, 3))
        Next

        n = n + 1
        c01 = Dir
      Loop

      Sheets(1).Cells.UnMerge
      Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Resize(UBound(sp), 5) = sp
    End If
  End With
End Sub
Please show a screenshot of the msgbox value.