Hi Sam,

don't know about help.

Sub Test5555()
Dim sTmp As String
sTmp = Worksheets(1).Cells(1, 1).Value
sTmp = StrConv(sTmp, vbProperCase)
Worksheets(1).Cells(1, 1).Value = sTmp
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"