[SIZE=2]...
...
[COLOR=blue]For[/COLOR] i = IDStart [COLOR=blue]To[/COLOR] IDStop
[COLOR=blue]Set[/COLOR] NewButton = NewToolbar.Controls.Add _
([COLOR=blue]Type[/COLOR]:=msoControlButton, ID:=2950)
NewButton.FaceId = i
NewButton.Caption = "FaceID = " & i
[B]NewButton.CopyFace
ActiveSheet.Paste Destination:=Cells(i, 1)
[/B][COLOR=blue]Next[/COLOR] i
...
...[/SIZE]