Select Case Not Me.TxtActualBenchmark
Case "N/A"
Select Case Me.txtBenchmarks
Case "At least one program every 6 months"
Select Case Me.ComboMonth
Case "January", "February", "March", "April", "May", "July", "August", "September", "October", "November"
MsgBox "Please put N/A", vbOKCancel
Case "June", "December"
'do nothing
End Select
End Select
End Select![]()