If TextBox5.Value = Workbooks("Excel Stock System.xlsm").Worksheets("DataNews_Events").Cells(i, 6) <> "Yes" Then
The