Diky, ale tudy pro me asi cesta nevede.

Bud delam neco spatne nebo to nefunguje pod 2007. Pise to "Run-time error 438. Object doesnt support this property or method."
Debbuger oznaci radek s: Set CurrentItem = ActiveWindow.CurrentItem