```
'''' Question 2
Dim c As Range
Dim rng As Range, rCell As Range
Set rng = Range("C16:C20")
For Each rCell In rng
If rCell.HasFormula Then
If rCell.Formula Like "=IF(*" Then
rCell.Offset(, 1).Value = 1
Else
rCell.Offset(, 1).Value = 0
End If
End If
Next
''' Checks thats the answers in range c16:c20 are the correct answer as shown in range M16:M20
Sheets("Excel assessment").Select
Range("C16").Select
For Each c In Range("C16:C20")
If c.Value = c.Offset(0, 10) Then
c.Offset(0, 12).Value = 1
Else: ActiveCell.Offset(0, 13).Value = 0
End If
Next c
Range("P16") = Range("o16").Value * Range("o17").Value * Range("o18").Value * Range("o19").Value * Range("o20").Value
'' Checks that 1 of the cells in range C16:C20 ontains the IF formula
Range("N16").Value = Range("D16").Value * Range("D17").Value * Range("D18").Value * Range("D19").Value * Range("D20").Value
Sheets("Answers").Range("B2").Value = Range("p16").Value * Range("N16").Value
Sheets("Excel Assessment").Activate
Range("d16:D20").Clear
Range("N16:P20").Clear
```