Checkbox with multiple functions

**Doomsday** · 03-06-2013, 03:49 PM

I am trying to make a cell that is a checkbox do multiple functions. I want to be able to click on the cell and it change to a list of 4 things. The 4 things are A B C D. It starts out as A you click it it changes to B and then to C and then to D and back to A. Can anyone help me out with this? I can make it do 3 changes but not 4.
Thanks

**Jakobshavn** · 03-07-2013, 11:37 AM

This is done with an event macro. Open the attached workbook and click on cell E6. Macros must be enabled for this to work.

**Doomsday** · 03-07-2013, 12:51 PM

I could not get it to work

**Jakobshavn** · 03-07-2013, 01:04 PM

Can you open the file and enable macros??

**Norie** · 03-07-2013, 01:05 PM

Try this in the worksheet module, it uses double click rather than click.

Please Login or Register  to view this content.

**Doomsday** · 03-07-2013, 02:32 PM

I am using Office 10 with Windows 7 OS. I opened your file and saved it as a macro enabled workbook, nothing but a yellow cell E6...

**Doomsday** · 03-07-2013, 02:49 PM

This is the macro on the CheckBox I am using to display the 3 different texts and colors. I want to display 4,
Private Sub CheckBox35_Change()
If IsNull(CheckBox35.Value) Then
CheckBox35.Caption = "Still Compositing"
CheckBox35.BackColor = RGB(60, 82, 242)
ElseIf CheckBox35.Value = True Then
CheckBox35.Caption = "Bottled Ready for Pickup"
CheckBox35.BackColor = RGB(225, 139, 25)
ElseIf CheckBox35.Value = False Then
CheckBox35.Caption = "Samples have been Picked up"
CheckBox35.BackColor = RGB(0, 255, 0)

End If
End Sub

**Doomsday** · 03-07-2013, 02:56 PM

This is the macro on the CheckBox I am using to display the 3 different texts and colors. I want to display 4,
Private Sub CheckBox35_Change()
If IsNull(CheckBox35.Value) Then
CheckBox35.Caption = "Still Compositing"
CheckBox35.BackColor = RGB(60, 82, 242)
ElseIf CheckBox35.Value = True Then
CheckBox35.Caption = "Bottled Ready for Pickup"
CheckBox35.BackColor = RGB(225, 139, 25)
ElseIf CheckBox35.Value = False Then
CheckBox35.Caption = "Samples have been Picked up"
CheckBox35.BackColor = RGB(0, 255, 0)

End If
End Sub