I should have included the initialize code.

Private Sub UserForm_Initialize()
Dim ErrorCodes(1 To 7, 1 To 2) As String
Def.ColumnCount = 2

ErrorCodes(1, 1) = "1"
ErrorCodes(2, 1) = "2"
ErrorCodes(3, 1) = "3"
ErrorCodes(4, 1) = "4"
ErrorCodes(5, 1) = "5"
ErrorCodes(6, 1) = "6"
ErrorCodes(7, 1) = "7"

ErrorCodes(1, 2) = "Print Moving/Orientation"
ErrorCodes(2, 2) = "Damaged Rolls/Sheets/Splices"
ErrorCodes(3, 2) = "Bad Material Envelopes/Inserts"
ErrorCodes(4, 2) = "Setups"
ErrorCodes(5, 2) = "Press Malfunction"
ErrorCodes(6, 2) = "Missing pieces for validation"
ErrorCodes(7, 2) = "Unknown/Other"

If Me.RangeTF = False Then
Me.BarCode2.Visible = False
End If
If Range("Q2") < "" Then
Me.Mach = Range("Q2")
Me.Def = Range("Q3")
Me.OPID = Range("Q4")
Else
Me.Mach = "???"
Me.Def = 7
Me.OPID = "???"
End If
Def.List = ErrorCodes
End Sub