UCase() returns characters uppercase
Sub ucaseDemo() Dim userName As String userName = "First Name" Debug.Print UCase(userName) End Sub