принудительный формат данных Excel

[VictorM]

Aent,

Кстати, вы тестировали исправленный код ? В первый раз когда я его публиковал cлучайно пропустил x = x+1.

да, я вовремя заметил Ваше исправление.
Спасибо за добавления и разьяснения, буду пробовать. Уж очень хочется мне все это запустить.
***

Set w = ActiveWorkbook.Worksheets("MySheet")

ясно, вот где я лоханулся.

p.s. to Aent, ВСЁ ОК!!! Работает чётко!
Думаю, тема благополучно закрыта.
Всем большое спасибо за советы и подсказки!