For...Next Loop : For « Language Basics « VBA / Excel / Access / Word

For...Next Loop

 
   Sub GetTextBoxNames() 
       Dim myForm As Form 
       Dim myControl As Control 
       Dim c As Integer 

       Set myForm = Screen.ActiveForm 
       Set myControl = Screen.ActiveControl 

       For c = 0 To myForm.Count - 1 
           If TypeOf myForm(c) Is TextBox Then 
               MsgBox myForm(c).Name 
           End If 
       Next c 
   End Sub

Related examples in the same category

1.	For Loops with different steps
2.	you can go backward and use increments other than 1
3.	The For...Next construct is used when you have an exact number of iterations you want to perform
4.	For loop whose step is 2
5.	Checks values in a range 10 rows by 5 columns
6.	Nest if statement into a for statement
7.	Iterates six times outputting the numbers 0, 2, 4, 6, 8, and 10 in a message box:
8.	iterates four times outputting the numbers 0, 3, 6, and 9 in a message box:
9.	the loop iterates just three times outputting the numbers 10, 5, and 0 in a message box:
10.	Non integer step for loop