Marcol, Thank you very much.
It didn't work good for me the first time becouse I didn't jet know about the
.Range("B:B,D:D").ColumnWidth = 18
Now that I do it works perfect. Just the way I wanted!
I did make a little change to make it easyer but it doesn't matter.

I shall be forever grateful.
Thank you very much.

Regards, Denis