title: Dir() function not working in Mac Excel 2011 VBA
body: <p>Hi I am trying to list all the files in a subdirectory of where the Excel workbook is residing in. For some reason, the code cannot execute beyond the Dir function. Can anyone please advise? Thank you!</p>
  
  <pre><code>Sub ListFiles()
  
      ActiveSheet.Name = "temp"
  
      Dim MyDir As String
      'Declare the variables
      Dim strPath As String
      Dim strFile As String
      Dim r As Long
  
      MyDir = ActiveWorkbook.Path 'current path where workbook is
      strPath = MyDir &amp; ":Current:" 'files within "Current" folder subdir, I am using Mac Excel 2011
  
      'Insert the headers in Columns A, B, and C
      Cells(1, "A").Value = "FileName"
      Cells(1, "B").Value = "Size"
      Cells(1, "C").Value = "Date/Time"
  
      'Find the next available row
      r = Cells(Rows.Count, "A").End(xlUp).Row + 1
  
      'Get the first file from the folder
              'Note: macro stops working here
      strFile = Dir(strPath &amp; "*.csv", vbNormal)
  
      'Loop through each file in the folder
      Do While Len(strFile) &gt; 0
  
          'List the name, size, and date/time of the current file
          Cells(r, 1).Value = strFile
          Cells(r, 2).Value = FileLen(strPath &amp; strFile)
          Cells(r, 3).Value = FileDateTime(strPath &amp; strFile)
  
          'Determine the next row
          r = r + 1
  
          'Get the next file from the folder
          strFile = Dir
  
      Loop
  
      'Change the width of the columns to achieve the best fit
      Columns.AutoFit
  
  End Sub
  </code></pre>