Control or macro to enter values in cells|VBA & Macros|Excel Forum|My Online Training Hub

I have setup a worksheet that has 5 buttons on each of 14 columns, the buttons place a 1, 2 ,3 ,4 or 5 in the cell above. The value is use to decide what color the text is in the columns below the buttons. There is also a formula that uses this value to determine if the value is True, False or the Value of 1.

I am sure there is a much more efficient way some type of loop perhaps.

This is how I have it at the moment

Private Sub cb1_Click()
Range("C6") = 1
End Sub

Private Sub cb2_Click()
Range("C6") = 2
End Sub

Private Sub cb3_Click()
Range("C6") = 3
End Sub

Private Sub cb4_Click()
Range("C6") = 4
End Sub

Private Sub cb5_Click()
Range("C6") = 5
End Sub

Private Sub cb6_Click()
Range("D6") = 1
End Sub

Private Sub cb7_Click()
Range("D6") = 2
End Sub

Private Sub cb8_Click()
Range("D6") = 3
End Sub

Private Sub cb9_Click()
Range("D6") = 4
End Sub

Private Sub cb10_Click()
Range("D6") = 5
End Sub

Private Sub cb11_Click()
Range("E6") = 1
End Sub

Private Sub cb12_Click()
Range("E6") = 2
End Sub

Private Sub cb13_Click()
Range("E6") = 3
End Sub

Private Sub cb14_Click()
Range("E6") = 4
End Sub

Private Sub cb15_Click()
Range("E6") = 5
End Sub

Private Sub cb16_Click()
Range("F6") = 1
End Sub

Private Sub cb17_Click()
Range("F6") = 2
End Sub

Private Sub cb18_Click()
Range("F6") = 3
End Sub

Private Sub cb19_Click()
Range("F6") = 4
End Sub

Private Sub cb20_Click()
Range("F6") = 5
End Sub

Private Sub cb21_Click()
Range("G6") = 1
End Sub

Private Sub cb22_Click()
Range("G6") = 2
End Sub

Private Sub cb23_Click()
Range("G6") = 3
End Sub

Private Sub cb24_Click()
Range("G6") = 4
End Sub

Private Sub cb25_Click()
Range("G6") = 5
End Sub

Private Sub cb26_Click()
Range("H6") = 1
End Sub

Private Sub cb27_Click()
Range("H6") = 2
End Sub

Private Sub cb28_Click()
Range("H6") = 3
End Sub

Private Sub cb29_Click()
Range("H6") = 4
End Sub

Private Sub cb30_Click()
Range("H6") = 5
End Sub

Private Sub cb31_Click()
Range("I6") = 1
End Sub

Private Sub cb32_Click()
Range("I6") = 2
End Sub

Private Sub cb33_Click()
Range("I6") = 3
End Sub

Private Sub cb34_Click()
Range("I6") = 4
End Sub

Private Sub cb35_Click()
Range("I6") = 5
End Sub

Private Sub cb36_Click()
Range("J6") = 1
End Sub

Private Sub cb37_Click()
Range("J6") = 2
End Sub

Private Sub cb38_Click()
Range("J6") = 3
End Sub

Private Sub cb39_Click()
Range("J6") = 4
End Sub

Private Sub cb40_Click()
Range("J6") = 5
End Sub

Private Sub cb41_Click()
Range("K6") = 1
End Sub

Private Sub cb42_Click()
Range("K6") = 2
End Sub

Private Sub cb43_Click()
Range("K6") = 3
End Sub

Private Sub cb44_Click()
Range("K6") = 4
End Sub

Private Sub cb45_Click()
Range("K6") = 5
End Sub

Private Sub cb46_Click()
Range("L6") = 1
End Sub

Private Sub cb47_Click()
Range("L6") = 2
End Sub

Private Sub cb48_Click()
Range("L6") = 3
End Sub

Private Sub cb49_Click()
Range("L6") = 4
End Sub

Private Sub cb50_Click()
Range("L6") = 5
End Sub

Private Sub cb51_Click()
Range("M6") = 1
End Sub

Private Sub cb52_Click()
Range("M6") = 2
End Sub

Private Sub cb53_Click()
Range("M6") = 3
End Sub

Private Sub cb54_Click()
Range("M6") = 4
End Sub

Private Sub cb55_Click()
Range("M6") = 5
End Sub

Private Sub cb56_Click()
Range("N6") = 1
End Sub

Private Sub cb57_Click()
Range("N6") = 2
End Sub

Private Sub cb58_Click()
Range("N6") = 3
End Sub

Private Sub cb59_Click()
Range("N6") = 4
End Sub

Private Sub cb60_Click()
Range("N6") = 5
End Sub

Private Sub cb61_Click()
Range("O6") = 1
End Sub

Private Sub cb62_Click()
Range("O6") = 2
End Sub

Private Sub cb63_Click()
Range("O6") = 3
End Sub

Private Sub cb64_Click()
Range("O6") = 4
End Sub

Private Sub cb65_Click()
Range("O6") = 5
End Sub

Private Sub cb66_Click()
Range("P6") = 1
End Sub

Private Sub cb67_Click()
Range("P6") = 2
End Sub

Private Sub cb68_Click()
Range("P6") = 3
End Sub

Private Sub cb69_Click()
Range("P6") = 4
End Sub

Private Sub cb70_Click()
Range("P6") = 5
End Sub

Thanks