You could use a For loop to loop thru each control, eg:
VB Code:
  1. Dim iCount as Integer

  2. Dim hInp as ???

  3.  
  4. For iCount = 1 To (wb.Count - 1) 

  5.   Set hInp = wb(1).Document.blahblah

  6.   hInp.Click

  7. Next iCount

  8. Set hInp= Nothing