將檔案另存新檔,檔名結構為"年月日.XLS"

以下程式為將另存的新檔存入同檔資料夾內:
With ThisWorkbook
　　.SaveCopyAs .Path & "\" & Format(Date, "yymmdd") & ".xls"
End With

如何取得worksheet名稱

sub wkshtname()

 

For i = 1 To Sheets.Count
MsgBox Sheets(i).Name
Next

end sub