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
Bookmarks