You can also apply integer values which provide unique solutions for each outcome
[vba]Sub SelectMacro()
If chkBOM Then a = 1
If chkpBOM Then b = 2
If chkPO Then c = 4
test = a + b + c
Select Case test
Case 1
Call getBOM
Case 2
Call getpBOM
Case 3
Call getBOM
Call getpBOM
Case 4
Call getPO
Case 5
Call getBOM
Call getPO
Case 6
Call getpBOM
Call getPO
Case 7
Call getBOM
Call getpBOM
Call getPO
End Select
End Sub

[/vba]