当你的过程需要在一个集合的所有对象或者一个数组的所有元素之间循环时，应该使用For Each…Next循环。该循环不需要计数器变量，VB自己知道应该执行几次循环。我们拿工作表集合作个例子，要删除工作簿里面的工作表，你首先不得不要选择它，再选择“编辑”-“删除工作表”。如果要只留一个工作表在工作簿里面的话，你就不得不使用同样的命令，次数取决于工作表的总数。因为每个工作表都是工作表集合里的一个对象，所以使用ForEach…Next循环来加速删除工作表。
该循环的形式是：
For Each 元素 In 组合语句1语句2语句NNext [元素]
在上面的语法中，元素一个数组或者集合的所有元素都将被赋予的变量，如果是数组的话，该变量必须为Variant数据类型；如果是集合的话，则必须是个对象数据类型。组合是集合的名称或者数组的名称。
Sub IsSuchSheet()Dim mySheet As WorksheetDim counter As Integercounter = 0For Each mySheet In WorksheetsIf mySheet.name = "Sheet2" Thencounter =counter + 1End IfNext mySheetIf counter = 1 ThenMsgBox "This workbook contains Sheet2."ElseMsgBox "Sheet2 was not found."End ifEnd Sub
过程打开一个新工作簿并且选择Sheet2。ForEach…Next循环遍历每个工作表（从所选的Sheet2开始）并且删除它们。当过程结束的时候，该工作簿只剩一个工作表Sheet1了。这里是另外一个检查某个工作表是否存在于一工作簿中.
