I googled the problem but I'm still coming up with some errors... basically, I have a simple user form where a name gets input, and on execution gets written to the next empty cell in column B (and adds a record number), and I want to ensure the name is recorded in proper case. Here's my current code: 

Private Sub cmndbttn_Click()

  Dim ws2 As Worksheet: Set ws2 = Sheets("Admin Menu")

  Dim emptyRow As Long

  Dim AutoNo As Long

  With ws2
    'Determine EmptyRow
    emptyRow = WorksheetFunction.CountA(Range("$B:B")) + 1

    AutoNo = Application.WorksheetFunction.Max(Sheet2.Columns(1))
    AutoNo = AutoNo + 1
    Cells(emptyRow, 1).Value = AutoNo
    Cells(emptyRow, 2).Value = NameTextBox.Value

  End With
  
  Unload Me

End Sub