Sub CheckBox5_Click()
If ActiveSheet.Shapes("Check Box 5").ControlFormat.Value = 1 Then
ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = 0
ActiveSheet.Shapes("Check Box 3").ControlFormat.Value = 0
ActiveSheet.Shapes("Check Box 4").ControlFormat.Value = 0
End If
Call subCheckboxes
End Sub
Sub CheckBox2_Click()
If ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = 1 Then
ActiveSheet.Shapes("Check Box 5").ControlFormat.Value = 0
ActiveSheet.Shapes("Check Box 3").ControlFormat.Value = 0
ActiveSheet.Shapes("Check Box 4").ControlFormat.Value = 0
End If
Call subCheckboxes
End Sub
Sub CheckBox3_Click()
If ActiveSheet.Shapes("Check Box 3").ControlFormat.Value = 1 Then
ActiveSheet.Shapes("Check Box 5").ControlFormat.Value = 0
ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = 0
ActiveSheet.Shapes("Check Box 4").ControlFormat.Value = 0
End If
Call subCheckboxes
End Sub
Sub CheckBox4_Click()
If ActiveSheet.Shapes("Check Box 4").ControlFormat.Value = 1 Then
ActiveSheet.Shapes("Check Box 5").ControlFormat.Value = 0
ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = 0
ActiveSheet.Shapes("Check Box 3").ControlFormat.Value = 0
End If
Call subCheckboxes
End Sub
Sub subCheckboxes()
If ActiveSheet.Shapes("Check Box 5").ControlFormat.Value = 1 Then
Cells(2, 5).Formula = "=VLOOKUP(E1,A3:B8,2,FALSE)"
Exit Sub
ElseIf ActiveSheet.Shapes("Check Box 2").ControlFormat.Value = 1 Then
Cells(2, 5).Formula = "=VLOOKUP(E1,A10:B15,2,FALSE)"
Exit Sub
ElseIf ActiveSheet.Shapes("Check Box 3").ControlFormat.Value = 1 Then
Cells(2, 5).Formula = "=VLOOKUP(E1,A17:B22,2,FALSE)"
Exit Sub
ElseIf ActiveSheet.Shapes("Check Box 4").ControlFormat.Value = 1 Then
Cells(2, 5).Formula = "=VLOOKUP(E1,A24:B29,2,FALSE)"
Exit Sub
End If
End Sub