Of course... ;-)
SUB CheckSelections()
select case CustomerImpactErrorType
case 22,24,25,32
select CASE SubType
case 5
select CASE QCSelector
case 1
ContactName.visible=true
case else
ContactName.visible=false
end select
case else
ContactName.visible=false
end select
case else
ContactName.visible=false
end select
END SUB
Looking in for the other bug...