is dit in 2 of 3 regels samen te voegen?
Private Sub ComboBox6_Change()
Range("B20") = ComboBox6.Text
ComboBox6.Text = UCase(Left(ComboBox6.Text, 1)) & LCase(Mid(ComboBox6.Text, 2))
End Sub
Private Sub ComboBox7_Change()
Range("B21") = ComboBox7.Text
ComboBox7.Text = UCase(Left(ComboBox7.Text, 1)) & LCase(Mid(ComboBox7.Text, 2))
End Sub
Private Sub ComboBox8_Change()
Range("B22") = ComboBox8.Text
ComboBox8.Text = UCase(Left(ComboBox8.Text, 1)) & LCase(Mid(ComboBox8.Text, 2))
End Sub
Private Sub ComboBox9_Change()
Range("B23") = ComboBox9.Text
ComboBox9.Text = UCase(Left(ComboBox9.Text, 1)) & LCase(Mid(ComboBox9.Text, 2))
End Sub
Private Sub ComboBox10_Change()
Range("B24") = ComboBox10.Text
ComboBox10.Text = UCase(Left(ComboBox10.Text, 1)) & LCase(Mid(ComboBox10.Text, 2))
End Sub
Private Sub ComboBox11_Change()
Range("B25") = ComboBox11.Text
ComboBox11.Text = UCase(Left(ComboBox11.Text, 1)) & LCase(Mid(ComboBox11.Text, 2))
End Sub
Private Sub ComboBox12_Change()
Range("B26") = ComboBox12.Text
ComboBox12.Text = UCase(Left(ComboBox12.Text, 1)) & LCase(Mid(ComboBox12.Text, 2))
End Sub
Private Sub ComboBox13_Change()
Range("B27") = ComboBox13.Text
ComboBox13.Text = UCase(Left(ComboBox13.Text, 1)) & LCase(Mid(ComboBox13.Text, 2))
End Sub
Private Sub ComboBox14_Change()
Range("B28") = ComboBox14.Text
ComboBox14.Text = UCase(Left(ComboBox14.Text, 1)) & LCase(Mid(ComboBox14.Text, 2))
End Sub
Private Sub ComboBox15_Change()
Range("B29") = ComboBox15.Text
ComboBox15.Text = UCase(Left(ComboBox15.Text, 1)) & LCase(Mid(ComboBox15.Text, 2))
End Sub
Private Sub ComboBox16_Change()
Range("B30") = ComboBox16.Text
ComboBox16.Text = UCase(Left(ComboBox16.Text, 1)) & LCase(Mid(ComboBox16.Text, 2))
End Sub
Private Sub ComboBox17_Change()
Range("B31") = ComboBox17.Text
ComboBox17.Text = UCase(Left(ComboBox17.Text, 1)) & LCase(Mid(ComboBox17.Text, 2))
End Sub
Private Sub ComboBox18_Change()
Range("B32") = ComboBox18.Text
ComboBox18.Text = UCase(Left(ComboBox18.Text, 1)) & LCase(Mid(ComboBox18.Text, 2))
End Sub
Private Sub ComboBox19_Change()
Range("B33") = ComboBox19.Text
ComboBox19.Text = UCase(Left(ComboBox19.Text, 1)) & LCase(Mid(ComboBox19.Text, 2))
End Sub
Private Sub ComboBox20_Change()
Range("B34") = ComboBox20.Text
ComboBox20.Text = UCase(Left(ComboBox20.Text, 1)) & LCase(Mid(ComboBox20.Text, 2))
End Sub
Private Sub ComboBox21_Change()
Range("B41") = ComboBox21.Text
ComboBox21.Text = UCase(Left(ComboBox21.Text, 1)) & LCase(Mid(ComboBox21.Text, 2))
End Sub
Private Sub ComboBox22_Change()
Range("B42") = ComboBox22.Text
ComboBox22.Text = UCase(Left(ComboBox22.Text, 1)) & LCase(Mid(ComboBox22.Text, 2))
End Sub
Private Sub ComboBox23_Change()
Range("B43") = ComboBox23.Text
ComboBox23.Text = UCase(Left(ComboBox23.Text, 1)) & LCase(Mid(ComboBox23.Text, 2))
End Sub
Private Sub ComboBox24_Change()
Range("B44") = ComboBox24.Text
ComboBox24.Text = UCase(Left(ComboBox24.Text, 1)) & LCase(Mid(ComboBox24.Text, 2))
End Sub
Private Sub ComboBox25_Change()
Range("B45") = ComboBox25.Text
ComboBox25.Text = UCase(Left(ComboBox25.Text, 1)) & LCase(Mid(ComboBox25.Text, 2))
End Sub
Private Sub ComboBox26_Change()
Range("B46") = ComboBox26.Text
ComboBox26.Text = UCase(Left(ComboBox26.Text, 1)) & LCase(Mid(ComboBox26.Text, 2))
End Sub
Private Sub ComboBox27_Change()
Range("B47") = ComboBox27.Text
ComboBox27.Text = UCase(Left(ComboBox27.Text, 1)) & LCase(Mid(ComboBox27.Text, 2))
End Sub
Private Sub ComboBox28_Change()
Range("B48") = ComboBox28.Text
ComboBox28.Text = UCase(Left(ComboBox28.Text, 1)) & LCase(Mid(ComboBox28.Text, 2))
End Sub
Private Sub ComboBox29_Change()
Range("B49") = ComboBox29.Text
ComboBox29.Text = UCase(Left(ComboBox29.Text, 1)) & LCase(Mid(ComboBox29.Text, 2))
End Sub
Private Sub ComboBox30_Change()
Range("B50") = ComboBox30.Text
ComboBox30.Text = UCase(Left(ComboBox30.Text, 1)) & LCase(Mid(ComboBox30.Text, 2))
End Sub
Private Sub ComboBox31_Change()
Range("B51") = ComboBox31.Text
ComboBox31.Text = UCase(Left(ComboBox31.Text, 1)) & LCase(Mid(ComboBox31.Text, 2))
End Sub
Private Sub ComboBox32_Change()
Range("B52") = ComboBox32.Text
ComboBox32.Text = UCase(Left(ComboBox32.Text, 1)) & LCase(Mid(ComboBox32.Text, 2))
End Sub
Private Sub ComboBox33_Change()
Range("B53") = ComboBox33.Text
ComboBox33.Text = UCase(Left(ComboBox33.Text, 1)) & LCase(Mid(ComboBox33.Text, 2))
End Sub
Private Sub ComboBox34_Change()
Range("B54") = ComboBox34.Text
ComboBox34.Text = UCase(Left(ComboBox34.Text, 1)) & LCase(Mid(ComboBox34.Text, 2))
End Sub
Private Sub ComboBox35_Change()
Range("B55") = ComboBox35.Text
ComboBox35.Text = UCase(Left(ComboBox35.Text, 1)) & LCase(Mid(ComboBox35.Text, 2))
End Sub
Private Sub ComboBox36_Change()
Range("B56") = ComboBox36.Text
ComboBox36.Text = UCase(Left(ComboBox36.Text, 1)) & LCase(Mid(ComboBox36.Text, 2))
End Sub
Private Sub ComboBox37_Change()
Range("B57") = ComboBox37.Text
ComboBox37.Text = UCase(Left(ComboBox37.Text, 1)) & LCase(Mid(ComboBox37.Text, 2))
End Sub
Private Sub ComboBox38_Change()
Range("B58") = ComboBox38.Text
ComboBox38.Text = UCase(Left(ComboBox38.Text, 1)) & LCase(Mid(ComboBox38.Text, 2))
End Sub
Private Sub ComboBox39_Change()
Range("B59") = ComboBox39.Text
ComboBox39.Text = UCase(Left(ComboBox39.Text, 1)) & LCase(Mid(ComboBox39.Text, 2))
End Sub
Private Sub ComboBox40_Change()
Range("B60") = ComboBox40.Text