Function CheckSequence(cell As Range) As Boolean
' Check if the value in the current cell follows the sequence pattern '
1 Dim CurVal As String
Dim PrevVal As String
' Get the value of the current cell and the cell above it '
3 CurVal = cell.Value
PrevVal = cell.Offset(-1, 0).Value
' Extract the relevant substrings for comparison
5 If Len(CurVal) >= 7 And Len(PrevVal) >= 7 Then
If (0 + Mid(CurVal, 7, 4) = Mid(PrevVal, 7, 4) + 1) And (Left(CurVal, 1) = Left(PrevVal, 1)) Then
7 CheckSequence = True
Else
9 CheckSequence = False
End If
11 Else
CheckSequence = False
13 End If
End Function
