Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Me.ComboBox1.Clear ' Remove and pre-existing values from the list
Dim lastcell As Long
Dim myrow As Long
'On Error Resume Next
lastcell = Worksheets("DATA").Cells(Rows.Count, "A").End(xlUp).Row ' Look in column A
With ActiveWorkbook.Worksheets("DATA")
.Select
    For myrow = 1 To lastcell ' Look in rows 1 to the last row in Column A
    If .Cells(myrow, 1).Font.Strikethrough = False And .Cells(myrow, 1).Value <> "ROLL#" Then ' <== If font is Strikethrough then do NOT USE
    If Sheets("MAIN_PAGE").Range("F1").Value = .Cells(myrow, 2).Value Then
    ' Show ONLY required records that match F1 value, do NOT have a Strikethrough font  & does not equal ROLL#
        Me.ComboBox1.AddItem .Cells(myrow, 1).Value ' Values to add to Combobox. STILL get all Strikethrough values ????
              End If
              End If
                  Next
                         End With
Sheets("MAIN_PAGE").Activate
Application.ScreenUpdating = True
End Sub
The above highlighted line does not prevent Strikethrough fonts from being populated, but I can figure out why?