Can we use multiple for command in VBA
Sub quarterlyAverage()
Dim breakStatus As Integer
breakStatus = 0
For i = 2 To 21
newRange = Range(Cells(i, 2), Cells(i, 5))
For j = 2 To 5
Cells(i, j).Select
If Cells(i, j) = 0 Then
breakStatus = 1
Exit For
Else
breakStatus = 0
End If
Next
Range("J1").Value = breakStatus
If breakStatus = 1 Then
Cells(i, 6).Value = "Missing data"
Else
Cells(i, 6).Value = Application.Average(newRange)
End If
Next
End Sub