Sorry Paul but I've made a couple of changes to the concept based on feed back from a couple of other beekeepers.
1. Have removed the visibility of Headers for Columns & Rows, and removed Gridlines from "Questionaire" sheet
2. Have changed extraneous data from Sheet 1 "Questionaire" to Sheet 2 "Data". Have changed the references in your code, and it appears to be working. Could you review to see if I have done this correctly?
3. Have added a new section into rows 13:17 so reflect "mechanical" options available to the beekeeper for them to consider using. These rows are to remain hidden if rAction value equals "Monitor", but the be unhidden if the rActions value does not equal "Monitor" or "~~".
'2. After selecting answers to Questions 1 & 2, Cell C10 should show a recommendation
Case rMites.Address
If rPhase.Value = None Then GoTo NiceExit
rAction.Value = getAction(rPhase.Value, rMites.Value)
'If rAction = "Monitor" then continue to hide rows 13:17, if rAction = "Monitor Closely" or "Treat A.S.A.P" or "Treat Urgently" then unhide Rows 13:17
Case rAction.Address
Select Case rAction.Value
Case "Monitor", "~~"
Me.Rows("14:17").Hidden = True
Case "Monitor Closely", "Treat", "Treat A.S.A.P.", "Treat Urgently"
Me.Rows("14:17").Hidden = False
End Select
I tried to follow your example but I think my efforts are wrong.
4. Have shifted the "Chemical Options section down the "Questionaire" sheet and changed the references in the code. Not sure if this is correct. Could you check please?