使用工作表函数进行大小写转换

Sub 首字母大写()
   Dim a As Range
   Dim b As String
   On Error Resume Next
   a = Selection
   b = application.WorksheetFunction proper("a")
   Selection = b
   
End Sub
系统提示编译错误。找不出原因。

Dim a As String
   Dim b As String
   On Error Resume Next
   a = Selection
   b = Application.WorksheetFunction.Proper(a)
   Selection = b

用ActiveCell代替Selection
   Dim a As String
   Dim b As String
   On Error Resume Next
   a = ActiveCell
   b = Application.WorksheetFunction.Proper(a)
   ActiveCell = b

[ 本帖最后由 zhaogang1960 于 2011-8-7 15:41 编辑 ]