[Excel]返回工作表名称

Function SHEETNAME(rng) As String
' Returns the sheet name for rng
Application.Volatile True
SHEETNAME = rng.Parent.Name
End Function

Function SHEETNAME2() As String
' Returns the sheet name of the cell that
' contains the function
Application.Volatile True
SHEETNAME2 = Application.Caller.Parent.Name
End Function

Sub 取表名称()
Dim Mbook As Workbook
Set Mbook = ActiveWorkbook
Dim i As Integer
For i = 1 To Mbook.Worksheets.Count
'Mbook.Worksheets(i).Copy
'ActiveWorkbook.SaveAs Filename:="C:\" & Mbook.Worksheets(i).Name & ".xls"
'ActiveWindow.Close
Range("C" & i).Value = Mbook.Worksheets(i).Name
Next i
End Sub