8 lines
149 B
Text
8 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
|