Thanks. This is what we eventually came up with.

Dim k As Integer
For k = 0 To 5 'stud input loop
Dim mycell
mycell = Cells(60, 3 + k)

Dim valueme() As String
valueme = Split(mycell, ",")
Dim d1 As Double
d1 = 0

Dim avar As Boolean
Dim i As Integer, j As Integer
Dim top
top = (Sheet12.Range("B1000").End(xlUp).Row - [Bookmark].Row +
2) / 4 - 1

For i = 0 To UBound(valueme) 'input loop split
avar = False
valueme(i) = Trim(valueme(i))
For j = 0 To top 'load combination name loop
name = Sheet12.Range("B" & [Bookmark].Row + 2 + j *
4).Value
If valueme(i) = name Then avar = True
Next j
If avar = False Then
MsgBox "You have entered and undefined Load Combination on
the Input Sheet!"
Exit Sub
End If
Next i
Next k