Már megint ez a fránya backslash...
Szóval:


Sub Fájlista()
Dim EredményekHelye As String
Dim f As String

    EredményekHelye = "C:\mappa1\mappa11\"
    f = Dir(EredményekHelye & "*.xls", vbNormal)

    Do While f <> ""
      Workbooks.Open Filename:=EredményekHelye & f
      MsgBox "A(z) " & f & " megnyitva, most pedig, mentés nélkül bezárom..." & Space(5), vbInformation, "Fájlkezelés"
      ActiveWorkbook.Close False
      f = Dir()
    Loop

End Sub