Try this

[vba]

fname = Dir(strPath2 & Application.PathSeparator & Range("B11") & "*.xls")
[/vba]