7 lines
149 B
Text
7 lines
149 B
Text
Function StringCase()
|
|
Dim s As String
|
|
s = "alphaBETA"
|
|
Debug.Print UCase(s)
|
|
Debug.Print LCase(s)
|
|
Debug.Print WorksheetFunction.Proper(s)
|
|
End Function
|