I need a random number within a range, and not to duplicate the numbers in current list

jmeddaugh,

It would probably look something like this:

Sub cmdWriteToSheet()
    
    Dim sEnrollmentStatus As String
    
    Select Case Me.chkEnrolled.Value
        Case True:  sEnrollmentStatus = "Currently Enrolled"
        Case Else:  sEnrollmentStatus = "Not Currently Enrolled"
    End Select
    
    Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(, 7).Value = Array(Me.txtSchoolName.Text, _
                                                                         Me.lblGenerate.Caption, _
                                                                         Me.txtStudentNumber.Text, _
                                                                         Me.txtFName.Text, _
                                                                         Me.txtLName.Text, _
                                                                         Me.txtGR.Text, _
                                                                         sEnrollmentStatus)
    
    Me.txtSchoolName.Text = vbNullString
    Me.lblGenerate.Caption = vbNullString
    Me.txtStudentNumber.Text = vbNullString
    Me.txtFName.Text = vbNullString
    Me.txtLName.Text = vbNullString
    Me.txtGR.Text = vbNullString
    Me.chkEnrolled.Value = False
    
    Me.txtSchoolName.SetFocus
    
End Sub