trying to add the new name of a file in a cell

[daniels012]

For what ever reason I get the error 52 on this line:
fname = Dir(strPath2 & Range("B11") & "*.xls")

Thank You
Michael