在VBA中，可以使用Sheets.Add方法来新建工作表，然后使用Name属性来给工作表命名。以下是一个简单的示例代码：
Sub CreateAndNameSheet()
Dim newSheet As Worksheet
' 新建工作表
Set newSheet = ThisWorkbook.Sheets.Add
' 给工作表命名
newSheet.Name = "新工作表"
End Sub
在这个示例中，我们使用ThisWorkbook.Sheets.Add方法来新建工作表，并将返回的工作表对象赋值给newSheet变量。然后，我们使用newSheet.Name属性来给工作表命名为"新工作表"。
