Strange it works fine for me... Is your system date American per chance?

Anyways stick this in and post what it says:
[VBA]

'//FIND THIS LINE IN THE CODE
'This is JIC you wanted to specify sheet as well...
FileSheetSrc = "Sheet1" 'or range... eg: FileSheetSrc = wbdest.range("A4") or whatever...

'//ADD THIS BIT

Dim waddaf As String

waddaf = FileNameSrc & " & " & FileSheetSrc

'//POST WHAT THIS SAYS

MsgBox (wadddaf)

'//END

'//Build it all here
Set wbSrc = Workbooks(FileNameSrc).Sheets(FileSheetSrc)

[/VBA]