Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Nest if statement in a Do Loop

Sub ShadeEverySecondRow()   i = 0   Do     i = i + 2     If IsEmpty(Cells(i, 1)) Then Exit Do     Rows(i).Interior.ColorIndex = 15   Loop End Sub