for loops

Originally Posted by romperstomper

For intCounter = 1 To 3

If Me.Controls("CheckBox" & intCounter).value = True Then
    iRow = ws.Cells(Rows.Count, 1) _
    .End(xlUp).Offset(1, 0).Row
    ws.Cells(iRow, 3).Value = "A" & intCounter
    ws.Cells(iRow, 1).Value = Me.TextBox2.Value
    ws.Cells(iRow, 7).Value = Me.TEXT_BOX_ENGINE_HOURS.Value
End If
Next intCounter

That worked thanks very much