For Each Next Loop in Excel Vba

We are going to learn about programming FOR EACH NEXT loops. First we are going to learn what loops are and why they are necessary. Then we are going to learn how to use a FOR EACH NEXT LOOP.

Types of VBA loops

Note: In Excel VBA they are two types of FOR LOOPS: FOR NEXT and FOR EACH NEXT. Our focus will be on the FOR EACH NEXT loop in this article.

The For Each loop in Excel VBA is used to iterate over a collection of objects, such as cells in a range or items in an array. The syntax is as follows:

For Each item in collection
[statements to be executed]
Next item

Here, item is a variable that holds each item in the collection as the loop iterates over it. A collection is the object to be looped through.


Sub LoopExample()
Dim rng As Range
Set rng = Range("A1:A5")
For Each cell In rng
cell.Value = "Hello World"
Next cell
End Sub

This code sets a range rng to the cells A1 to A5, and then uses a For Each loop to iterate through each cell in the range, setting the value of each cell to “Hello World”.

Now let’s see how to use the For Each Next loop.

The ribbon

Follow the steps below:

Right-click anywhere on the ribbon and select “Customize the Ribbon” from the drop down menu.

Customize The Ribbon

A dialog box will open. Click on the DEVELOPER check box (it is under “Customize the Ribbon Main Tabs”).

See also  How to Use List Box Control in Excel Vba

Add Developer Tab

The developer tap is now visible and is present next to the View tab on the top menu bar. Click on Developer tab and select “View Code”.

View Code

A new window (Visual Basic Editor) will open which would have a dialog box in the center. You will write the code in the dialog box.

View Code

The code

Write the following line of code in the dialog box.

Sub my_for_loop3()
For Each sht In ActiveWorkbook.Worksheets
MsgBox sht.Name
Next sht
End Sub

For Next Loop Code
After writing the code, close the window by clicking on the cross(x) icon on the upper right side of the screen.

The result

This is the result. That’s it! You have successfully used a For Next Each loop.

For each next loop Scroll Bar

For each next loop Combo Box