按工作表将工作簿分为多个文件：如何获取保存的工作簿名称作为工作表标题？

Question

我正在尝试创建一个宏，该宏将给定的工作簿拆分为多个文件，并以titles =当前工作表名称保存到同一文件夹中。我目前可以使用，但是保存的标题为“ Book67”，“ Book68”，“ Book69”等，而不是工作表标题。

已经为“工作表名称”尝试了各种类型的对象标题（底部第四行），但无济于事。我仍然是我认为问题出在哪里。

Sub Splitbook()
MyPath = ThisWorkbook.Path
For Each sht In ThisWorkbook.Sheets
sht.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
ActiveWorkbook.SaveAs
Filename = MyPath & "/" & "Worksheet.Name" & ".xlsx"
ActiveWorkbook.Close savechanges:=False
Next sht
End Sub

无错误消息。上面列出的预期结果