Combine code in VBA

[clifton1230]

Here's my code, how can I simplify it? I'm checking the values in a range of 4 cells against a single cell, then unprotecting two adjacent cells on each row if the value is true.

    Sheets("Quarterly Bonus").Select
    For Each cell In Range("B15")
    If Range("B15") = Range("f10") Then
    Range("D15:E15").Select
    Selection.Locked = False
    End If
    Next
    
    For Each cell In Range("B16")
    If Range("B16") = Range("f10") Then
    Range("D16:E16").Select
    Selection.Locked = False
    End If
    Next
    
    For Each cell In Range("B17")
    If Range("B17") = Range("f10") Then
    Range("D17:E17").Select
    Selection.Locked = False
    End If
    Next

    For Each cell In Range("B18")
    If Range("B18") = Range("f10") Then
    Range("D18:E18").Select
    Selection.Locked = False
    End If
    Next

[Norie]

Try this.

With Sheets("Quarterly Bonus")
    For Each cell In .Range("B15:B18")
      If cell.Value = Range("F10").Value Then
         cell.Offset(,2).Resize(,2).Locked =False
      End If
    Next cell
End With

[clifton1230]

Perfect, changed "Offset" to one because the first cell was in the next column from my test cell.

Brilliant - thanks!