0 Members and 1 Guest are viewing this topic.
Dim ctl As Control, total As Integer total = 0 For Each ctl In Me.Controls If TypeName(ctl) = "CommandButton" Then total = total + 1 End If Next MsgBox "Total CommandButton = " & total
http://www.box.net/shared/1iu08ugmno