Hi Howard,

Am Mon, 10 Feb 2014 23:52:36 -0800 (PST) schrieb L. Howard:


ActiveSheet.Shapes.AddTextBox _
msoTextOrientationHorizontal, .Left, _
.Top, .Width, .Height

I guess the OP would write:
set oTB= ActiveSheet.Shapes.AddTextBox _
( msoTextOrientationHorizontal, .Left, _
.Top, .Width, .Height)

that he could refer to oTB to set other properties.

Pleas look again he
https://skydrive.live.com/#cid=9378A...121822A3%21326
for "DeskBooking"

I copied a row of the table to BE10:BX10 with columnwidth.
Now you can select a range into the table and run "Test_CB". The same
range will be selected in BE10:BX10, will be colored and get the name
and then this range will be copied as picture back into the table.


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2