Dim i As Long, j As Long, k As Long
j = 1: k = 1
For i = 2 To 51
Committees_1st_2nd.Controls("TextBox" & j) = ThisWorkbook.Sheets("Committees").Range("AB" & i)
Committees_1st_2nd.Controls("TextBox" & j + 1) = ThisWorkbook.Sheets("Committees").Range("AC" & i)
Committees_1st_2nd.Controls("ComboBox" & k) = ThisWorkbook.Sheets("Committees").Range("AD" & i)
Committees_1st_2nd.Controls("TextBox" & j + 2) = ThisWorkbook.Sheets("Committees").Range("AE" & i)
Committees_1st_2nd.Controls("TextBox" & j + 3) = ThisWorkbook.Sheets("Committees").Range("AF" & i)
Committees_1st_2nd.Controls("TextBox" & j + 4) = ThisWorkbook.Sheets("Committees").Range("AG" & i)
j = j + 5: k = k + 1
Next i