Glad you found a solution.

Another option would be to do the resizing in code.

The line that adds the rectangle and sets its dimensions can be changed to this:

Set myRect = .Parent.Shapes.AddShape _
(Type:=msoShapeRectangle, _
Top:=.Top, Height:=.Height, _
Width:=.Width / 2, Left:=.Left)



Lisa wrote:

Aha cracked it - with my sheet unprotected, I could right click on the cell
and see the rectangle

Thanks

"Lisa" wrote in message
...
Hi Dave

How can I make the rectangles visible in order to resize them (or perhaps
the size is in the code somewhere?)

Just wanted to say also, thanks so much for sharing that code, as a
beginner (on a very fast track) it resulted in a huge breakthrough for
what I am out to achieve.


"Dave Peterson" wrote in message
...
The rectangle floats over that cell (including the dropdown arrow). So
you
really never got to the arrow.

Maybe you could resize the rectangle so that it only uses the left half
of the
cell.

Lisa wrote:

Hi

I have followed this excellent article for giving users the ability to
sort
a protected worksheet,

http://www.contextures.com/xlSort02.html

However, I have a problem in that I have the autofilters saved within
the
worksheet, and this piece of code conflicts with them - if I select a
drop
down arrow on the filter, it sorts the column as in the macro rather
than
giving me the drop down list.

How can I get around this? If I can crack this, I will have made a big
breakthrough in my quest

Thanks in advance

"clm" wrote:

i have a large worksheet with over 500 rows and 50 columns that needs
to be
sent out to a large audience. how can I allow the worksheet to be
sorted
while it is protected? i have tried protecting only certain columns
of data
and tried to sort, but it only allows me to sort only the columns that
are
not protected and the data in each row entry isn't "expanded" the
sort.
--
/clm

--

Dave Peterson



--

Dave Peterson