Macro does not work if file is renamed

[1nk3d]

Good morning everyone, I am a beginner when it comes to VBA and such. I have a problem that I feel is an easy fix for someone with more experience. My macro will not work if the file is renamed. Very quickly, the user clicks a button, and it downloads a preloaded file and loads it to the workbook. Can someone point me in the right direction?

Thank you

Sub Data()
'
' Macro4 Macro
'
'
    Workbooks.Open Filename:= _
        "excel file location"
    Range("A1:H1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Tool.xlsm").Activate
    Sheets("datasheet").Select
    Range("B2").Select
    ActiveSheet.Paste
    Sheets("BCard").Select
    Application.WindowState = xlNormal
    Windows("data.xlsx").Activate
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Sheets("BCard").Select
    Application.WindowState = xlMaximized
    
End Sub

 

[Joe4]

It looks like they hard-coded the Excel file name "Tool.xlsm" into the Macro.
Instead of doing that, just have Excel dynamically capture the name of the file at the very top of your code, like this:

Dim srcWB as Workbook
Set srcWB = ActiveWorkbook

Then you can replace any hard-coded references activating the workbook later in your code to this:

srcWB.Activate

 

[1nk3d]

Worked, thank you

 

[Joe4]

You are welcome.