µæ单¤¤­^¤å¦W称

wqfzqgk

Sub µæ单¤¤­^¤å¦W称()
    Dim Cbar As CommandBar
    Dim NewWS As Worksheet
    Dim RNum As Integer
    RNum = 1
    Set NewWS = Worksheets.Add
    On Error Resume Next
    ActiveSheet.Name = "µæ单¤¤­^¤å¦W称"
    On Error GoTo 0
    For Each Cbar In Application.CommandBars
        NewWS.Cells(RNum, "A").Value = Cbar.Name
        NewWS.Cells(RNum, "B").Value = Cbar.NameLocal
        RNum = RNum + 1
    Next Cbar
    NewWS.Columns.AutoFit
End Sub