在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屬性來給工作表命名為"新工作表"。
