hi hobbiton73

actually i tested it before posting here and it worked for me?
are all files in the folder excel files?



tested and worked:
[vba]
Sub OpenMultipleFilesFromFolder2()

Dim fPath As String, mName As String, fName As String

fPath = "Z:\CHRIS\Work\Monthly Extracts"
mName = InputBox(Prompt:="Please Type Month Name", Title:="Month Folder")
If mName = vbNullString Then
MsgBox "Missing Month Info"
Exit Sub
End If

fPath = fPath & "\" & mName & "\"
fName = Dir(fPath & "\*.xls*")
Do While fName <> ""
Workbooks.Open Filename:=fPath & "\" & fName
fName = Dir
Loop

End Sub
[/vba]