Управляющие конструкции можно включать друг в друга, например, вставить блок If...Then внутрь цикла For Each...Next, который в свою очередь находится в другом блоке If...Then и т. д. Такие конструкции называются вложенными.

Function CountValues(rangeToSearch, searchValue)
     If TypeName(rangeToSearch) <> "Range" Then
          MsgBox "You can search only a range of cells."
     Else
          For Each с In rangeToSearch.Cells
               If c.Value = searchValue Then
                    counter = counter + 1
               EndIf
          Next с
     EndIf
     CountValues = counter
End Function

Заметьте, что первый оператор EndIf закрывает внутренний блок If...Then, а последний оператор End If ? внешний. По аналогии, в случае вложенных циклов For...Next и For Each...Next операторы Next автоматически применяются к ближайшему предыдущему оператору For или For Each. Вложенные конструкции Do...Loop ведут себя сходным образом.

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997