Control strings

[Bob Phillips]

Change

        For Each CellaCerc In Sheets("Key Criteria").Range("A2", "A23")
            If (((My_Range.Offset(0, 9) + DayCount - 1) >= CellaCerc.Offset(0, 1)) And ((My_Range.Offset(0, 9) + DayCount - 1) <= CellaCerc.Offset(0, 2))) Then
                Ceiling_Range.Offset(0, 1) = CellaCerc
                Exit For
            End If
        Next

to

       
        For Each CellaCerc In Sheets("Key Criteria").Range("A2", "A23")
        
            If My_Range.Offset(0, 9).Value = "expired" Then
            
                'do nothing
            ElseIf (My_Range.Offset(0, 9).Value + DayCount - 1) >= CellaCerc.Offset(0, 1) And _
                (My_Range.Offset(0, 9).Value + DayCount - 1) <= CellaCerc.Offset(0, 2) Then
                Ceiling_Range.Offset(0, 1) = CellaCerc
                Exit For
            End If
        Next