ActiveCell.Offset(0, 0) = TextBox2.Text: ActiveCell.Offset(0, 0).Interior.ColorIndex = 3
ActiveCell.Offset(0, 1) = TextBox3.Text: ActiveCell.Offset(0, 1).Interior.ColorIndex = 3
ActiveCell.Offset(0, 2) = TextBox4.Text: ActiveCell.Offset(0, 2).Interior.ColorIndex = 3
ActiveCell.Offset(0, 3) = TextBox5.Text: ActiveCell.Offset(0, 3).Interior.ColorIndex = 3
ActiveCell.Offset(0, 4) = TextBox6.Text: ActiveCell.Offset(0, 4).Interior.ColorIndex = 3
ActiveCell.Offset(0, 5) = TextBox7.Text: ActiveCell.Offset(0, 5).Interior.ColorIndex = 3
ActiveCell.Offset(0, 6) = TextBox8.Text: ActiveCell.Offset(0, 6).Interior.ColorIndex = 3
ActiveCell.Offset(0, 7) = TextBox9.Text: ActiveCell.Offset(0, 7).Interior.ColorIndex = 3
ActiveCell.Offset(0, 8) = TextBox10.Text: ActiveCell.Offset(0, 8).Interior.ColorIndex = 3
ActiveCell.Offset(0, 9) = TextBox11.Text: ActiveCell.Offset(0, 9).Interior.ColorIndex = 3
ActiveCell.Offset(0, 10) = TextBox12.Text: ActiveCell.Offset(0, 10).Interior.ColorIndex = 3
ActiveCell.Offset(0, 11) = TextBox13.Text: ActiveCell.Offset(0, 11).Interior.ColorIndex = 3
ActiveCell.Offset(0, 12) = TextBox14.Text: ActiveCell.Offset(0, 12).Interior.ColorIndex = 3
ActiveCell.Offset(0, 13) = TextBox15.Text: ActiveCell.Offset(0, 13).Interior.ColorIndex = 3
ActiveCell.Offset(0, 14) = TextBox16.Text: ActiveCell.Offset(0, 14).Interior.ColorIndex = 3
ActiveCell.Offset(0, 15) = ComboBox1.Text: ActiveCell.Offset(0, 15).Interior.ColorIndex = 3
ActiveCell.Offset(0, 16) = TextBox17.Text: ActiveCell.Offset(0, 16).Interior.ColorIndex = 3