vbProperCase

[Crizlee]

Hi i cant seem to get this text to be in propercase. when i click the button, it did not convert the word (Cell 11) over to Cell 12. pls take a look at my coding.

Sub Rectangle2_Click()

Dim str As String
Dim strconvert As String

str = Cells(11, 1)

strconvert = strconv(str, vbProperCase)

Cells(12, 1) = str

End Sub

Result should be: example "TEST" becomes "Test".

[bakerman2]

Please use Code Tags when posting code.
Like this.

Please Login or Register  to view this content.

[protonLeah]

Cells(12, 1).Value = WorksheetFunction.Proper(Cells(11, 1).Value)

[bakerman2]

Or the built-in vba function.

Please Login or Register  to view this content.