如何用vba重命名sheet4中內容為D19的excel文檔？

Sub？更新()

ActiveWorkbook。SaveAs？文件名:=ThisWorkbook。路徑？& amp？"\"?& amp？工作表(“第4頁”)。範圍(D19)？& amp？".xlsx "，_

FileFormat:=xlOpenXMLWorkbook，？CreateBackup:=False

結束？SubD19可以更改內容:

私人？Sub？工作表_SelectionChange(ByVal？目標？作為？範圍)

如果？目標。地址？=?“D19”？然後

ActiveWorkbook。SaveAs？文件名:=ThisWorkbook。路徑？& amp？"\"?& amp？工作表(“第4頁”)。範圍(D19)？& amp？".xlsx "，_

FileFormat:=xlOpenXMLWorkbook，？CreateBackup:=False

結束？如果

結束？潛水艇