I forget to explain where applicaton stoped, error was generatet in this
line:
With PogodbeWorksheet.Range("MM")

If i change this line with this:
With Workbooks("tabela-pogodbe.xls").Worksheets(1).Range("MM")

code execution stoped in the same line except msg do not have same
eplanation:
Mistake '1004, protertis Find object's Range can't find (i translate this
form my language).

Regards,

Milos