Dėkui. > Na, taip lyg ir veikia: > ... > Data1 = Range("A1") 'Nenaudojamas? Ko gero nereikalingas, nes be jo irgi veikia puikiai.