The forms buttons could work, I think if I can change the color of the
buttons as I can with the commandbutton (.backcolor). Is there an
equivalent property of the forms buttons that I can set?
Thanks.

"Dave Peterson" wrote in message
...
You may want to remove the "on error resume next" lines and see what is
really
causing the trouble.

The only way I've seen that "can't enter break..." message is when I've
been
stepping through the code.

I'm not sure what you're doing with these commandbuttons, but I've always
found
the buttons from the forms toolbar much better behaved.

Bert wrote:

Thanks for your reply; however,
If I put a break point after that--even in the code that calls this
subroutine, it generates the same error message. Once this code
executes, I
cannot have a breakpoint without generating the message. Even a "Stop"
statement generates the error.
In fact, once the below code is executed, some code appears to be skipped
while other code runs sooner than code that appears earlier in the macro.

"Dave Peterson" wrote in message
...
Don't step through the code.

If you really have to step through it, don't step through that
.oleobjects.add
line.

Instead, put a break point on the line above and the line below. And
Run
between those lines--no stepping!



Bert wrote:

I'm trying to make a grid of commandbuttons on a spreadsheet but it is
generating this error message:
Can't enter break mode at this time
Then the code that follows is not not being executed (properly, at
least)
and other errors seem to be arising as well (Variables not being
assigned
values, etc.)

Here's the code I'm using to create the commandbuttons that seems to
be
causing the problem:
On Error Resume Next
For b = 1 To aRows '
CurTop = StartTop + (VOffset * b)
For c = 1 To aCols
Application.DisplayAlerts = False
Worksheets(2).OLEObjects.Add ClassType:="Forms.CommandButton.1",
Link:=False _
, DisplayAsIcon:=False, Left:=StartLeft + (HOffset * c),
Top:=CurTop, Width:=60, Height:=57
Application.DisplayAlerts = True
If a = TotalItems Then
On Error GoTo 0
Exit Sub
End If
a = a + 1
Next c
Next b
On Error GoTo 0

Thanks,
Bert

--

Dave Peterson

--

Dave Peterson