To save file in the country folder within folder 'countries' on desktop, try

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