MS Excel

Pokiaľ si kód prekopíruješ do súboru, v ktorom s ním budeš pracovať, tak nemusíš uvádzať názov súboru a ten riadok bude potom vyzerať nasledovne:

Set Knahrade = Sheets("1 801").Range(Cells(2, 1), Cells(2, 1).End(xlDown))

Ešte som to trošku upravil, takže vo svojom ostrom súbore si vytvor modul a doňho nakopíruj kód, ktorý prikladám (už nie je nutné, aby si pri spúšťaní makra stál v liste 1 801. Ja tiež nie som žiadny programátor, iba do toho trošku fušujem
Tu je ten kód, ešte si v ňom budeš musieť zmeniť odkaz na hárok, z ktorého ťaháš tie názvy miest - v kóde je označený ako 1 - t.j. slová Sheets("1") nahradiť slovami Sheets("xxx"), namiesto xxx dáš názov zdrojového listu (predpokladám, že zdrojový list s kódmi a názvami miest sa nachádza v tom istom súbore v stĺpcoch A a B):
Option Explicit

Sub Nahrad()

Dim Knahrade As Range, i As Long
Sheets("1 801").Activate
Set Knahrade = Sheets("1 801").Range(Cells(2, 1), Cells(2, 1).End(xlDown))

For i = 1 To Knahrade.Cells.Count
If IsNumeric(Knahrade.Cells(i, 1)) Then _
Knahrade.Cells(i, 1) = WorksheetFunction.VLookup(Knahrade.Cells(i, 1), Sheets("1").Range("A:B"), 2, 0)
Next i

End Sub
citovat