工作簿名称更改，如何在VBA中更改/调整？

Question

此宏使用工作簿名称，但有时会更改。 是否可以忽略它或调整其他名称？我试图将其添加为字符串，但看起来我需要其他内容。

Dim planavimas As String
planavimas = ActiveSheet.Name
Windows("Gamyba.xlsx").Activate
Range("A6:Y36").Select
Selection.Copy
Windows("PlanavimasET-19-01.xlsm").Activate  ' << (this workbook name changes) 
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False