Excel 修改宏以从具有不同名称的工作表复制数据

我遇到的问题是，工作簿将有许多版本。e、 g Prom代码网格V43等。如何修改代码，以便在不考虑工作簿名称的情况下复制工作表

Windows("Prom Code Grid V42.xlsx").Activate
Sheets("Prom Code Loading").Select
Sheets("Prom Code Loading").Copy Before:=Workbooks("gridload.xlsm").Sheets(1)
End Sub

---

如果工作簿的名称始终相同，并且只有版本会更改，则可以循环浏览所有打开的工作簿，只检查名称中的“Prom代码网格”，忽略版本

    Sub get_Prom_Code 

Dim Prom_WK as Workbook 
For Each wk in Application.Workbooks 
  If Instr(1, wk.name, "Prom Code Grid") > 0 Then 
    Set Prom_WK = wk 
  End if 
Next wk 

Prom_WK.Activate
Prom_WK.Sheets("Prom Code Loading").Copy Before:=Workbooks("gridload.xlsm").Sheets(1) End Sub

您需要解释如何确定应复制哪张图纸？