Sub test()
Debug.Print ActiveSheet.Cells(1, 1).Validation.Formula1
arr_test = Split(ActiveSheet.Range("A1").Validation.Formula1, ";")
For i = 0 To UBound(arr_test)-1
   If ActiveSheet.Cells(1, 1).Value Like arr_test(i) Then
       ActiveSheet.Cells(1, 1).Value = arr_test(i + 1)
       Exit For
   End If
Next i
End Sub

Sub Next_()
    Dim sL5_ As String, r_
    sL5_ = Worksheets("train").Range("L5").Value
If ActiveCell.Column = 5 Then
   Cells(5, 12) = Cells(ActiveCell.Row, 2)
For r_ = 2 To Cells(Rows.Count, 2).End(xlUp).Row
 If Cells(r_, 2) = Cells(5, 12) Then
    Cells(5, 12) = Cells(r_ + 1, 2)
    Cells(r_ + 1, 5).Select
    Exit Sub
 End If
Next r_
 Else
 Exit Sub
End If
End Sub