I have built a validation so that if a user fails to answer a question then they cannot move to next screen and it works fine
My problem is that there are 10 questions on the page and I want to check that all questions have been answered and if not it changes the font to red and the user cannot connot until all questions are answered.
Once all question are answered the font returns to black and moves to next sheet
Any ideas please??
Dim celltxt As String
celltxt = ActiveSheet.Range("BG9").Text ‘select cell
If InStr(1, celltxt, "FALSE") Then ‘check to see if it has this value
MsgBox ("Please answer Question 1") ‘if Yes then this message
ActiveSheet.Range("A9").Select ‘select question cell
Range("A9").Select ‘select the cell
.Color = -16776961 ‘change font to red
.TintAndShade = 0
.ColorIndex = xlAutomatic
.TintAndShade = 0'
Sheets("TNA2").Select ‘otherwise move to next sheet