Face ID error, any suggestion?

[Rock]

I created a small sub to display faces and their ID numbers.
Problem is the sub will not run if the face is more than 79.

In this attached sub, if you replace 79 by a number more than 79, it
will end up by error.

Do you have any suggestion?
Thanks!
Rock


Sub faceID()

'Add the "Face IDs" toolbar
Toolbars.Add "Face IDs"
i0 = 1
For i = i0 To i0 + *79*
Toolbars("Face IDs").ToolbarButtons.Add i
With Toolbars("Face IDs").ToolbarButtons(i)
..Name = i
End With
Next i
Toolbars("Face IDs").Visible = True

End Sub

 

[Tom Ogilvy]

Try it like this:

Sub faceID()
On Error Resume Next
'Add the "Face IDs" toolbar
Toolbars.Add "Face IDs"
i0 = 1
For i = i0 To i0 + 150
Toolbars("Face IDs").ToolbarButtons.Add i
With Toolbars("Face IDs").ToolbarButtons(i)
Name = i
End With
Next i
Toolbars("Face IDs").Visible = True

End Sub

 

[Rock]

Dear Tom Ogilvy!

It is Ok now and then the problem is the name cannot be written over
the default names that assigned by Excel.

Thank you very much!
Rock

 

[Tom Ogilvy]

I guess if that were the case and your code is renaming the buttons, you
would have an error on your first button.

 

[Rock]

I didnot know why but I guessed the problem may be that the "Name" arra
is not defined so that it have limited capacity of only 80.

This one works very well:
http://j-walk.com/ss/excel/tips/tip40.htm

Thanks you and best Regards
Roc