excel - シートのタイトルを動的に変更する

Question

シート名がファイル名と同じ .xls ファイルがいくつかあります。シート名は .xls ファイルごとに更新されるため、現在のコードは動的に更新されません。

すべての .xls ファイルでコードを使用できるように、シート名を動的に更新する方法はありますか?

Range("A3:E4500").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("named").Range("A3:E4500"), _
PlotBy:=xlColumns

「名前付き」は動的に変化します。これをコードに追加しようとしましたが、エラーメッセージが表示される場合。WBname は各シートに正しい名前を付けますが、「ソース」は文字列を好みません。

Dim WBname As String
WBname = Replace(ActiveWorkbook.Name, ".xls", "")
Application.ScreenUpdating = False
Range("A3:E4500").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("WBname").Range("A3:E4500"), _
PlotBy:=xlColumns