Is it possible to sort the range a to z after the code below.
Private Sub CommandButton1_Click()
Dim newEntry As Variant, rws As Long, adr As String
newEntry = UserForm4.TextBox1.Value
rws = Range("Grades").Rows.Count
Range("Grades").Cells(1, 1).Offset(rws, _
0).Value = newEntry
Unload...