Hi there, and welcome to the forum. 
Try replacing your cmdOkay_Click routine with the following:
Code:
Private Sub cmdOkay_Click()
Dim i As Long, j As Long, msg As String, Check As String, ary(5) As Variant
'Generate a list of the selected items
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
msg = msg & .List(i) & vbNewLine
ary(j) = .List(i)
j = j + 1
End If
Next i
End With
If msg = vbNullString Then
'If nothing was selected, tell user and let them try again
MsgBox "Nothing was selected! Please select a minimum of 4 Players!"
Exit Sub
Else
'Ask the user if they are happy with their selection(s)
Check = MsgBox("You selected:" & vbNewLine & msg & vbNewLine & _
"Are these selections correct?", _
vbYesNo + vbInformation, "Please confirm")
End If
If Check = vbYes Then
'Determine row in which to place values
With ActiveSheet
i = Application.WorksheetFunction.Match(.Range("$B$10"), .Range("$G$2:$G$5"))
With .Range("$H$1:$M$1")
.ClearContents
.Offset(i, 0).Value = ary()
End With
End With
'Unload the userform since user is happy with selection(s)
Unload Me
Else
'User wants to try again, so clear listbox selections and
'return user to the userform
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next
End If
End Sub
Bookmarks