Hi

replace this line

Code:
wbkNew.SaveAs strDesktopFolder & "\" & strCity & "\" & strCity, 51
with

Code:
wbkNew.SaveAs strDesktopFolder & "\" & strCity & "\" & strFName, 51