vba中更改sheet名

1、Sheets("abcd").Name = "5bcd"

2、Application 属性
则该属性返回一个 Application 对象，该对象代表 Microsoft Excel 应用程序。

示例：
本示例显示一个有关创建 myObject 的应用程序的信息。

Set myObject = ActiveWorkbook
If myObject.Application.Value = "Microsoft Excel" Then
MsgBox "This is an Excel Application object."
Else
MsgBox "This is not an Excel Application object."
End If

3、WorksheetFunction 属性
返回 WorksheetFunction 对象。（什么是WorksheetFunction 对象：该对象上级对象为Application 。用作可从 Visual Basic 中调用的 Microsoft Excel 工作表函数的容器。

使用 WorksheetFunction 属性可返回 WorksheetFunction 对象。）

WorksheetFunction 属性示例
本示例对单元格区域 A1:A10 使用 Min 工作表函数，并显示结果。

Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer

你的这些问题并非一句两句就可以说的清楚，好方法就是查阅和学习vba的帮助中的相关章节和实例文件。

Sub adsf()
For i = 1 To 2
Sheets(i).Name = Application.WorksheetFunction.Substitute(Sheets(i).Name, "a", "5")

Next
End Sub

Sub aa()
Dim ws As Worksheet

For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
ws.Name = i
Next i

End Sub