Thanks Dave. I'll implement this. The help is appreciated!

Scott


"Dave Peterson" wrote in message
...
InStr will look anywhere in that string.

cboCountColors
optCxxxcboyyy

You may just want to check the first three characters:

if lcase(left(shp.name)) = "cbo" then
---
end if



Nimrod wrote:

Sorry to the group for double-posting. In any regard, I found what I
needed:

For Each shp in ActiveSheet.Shapes
If InStr(1, shp.Name, "cbo") = 0 Then
---
End if

I use the "If InStr" line in place of the < "cboCountColors" and I seem
to
achieve the same. This also may be a better approach than providing
testing
for the several buttons I use.

Again, great thanks for the help.

Scott

"Nimrod" wrote in message
...
Thanks again for your help Tom. I have another question. I have
several
buttons I choose to use to change a rectangle to various colors. All
of
my
buttons begin with "cbo" (something I picked up along the way). I have
been
trying to figure out how to use InStr (x,y) to skip shapes beginning
with
"cbo" but I can't get the syntax right. Any ideas? I was figuring on
"If
Instr(whatever) 0 Then ... end if"


--

Dave Peterson