Porblem to line

[HuaminChen]

Hi,
How to resolve
https://1drv.ms/u/s!Ai8CrEskdewXm1UXeAKPcd2mrkZJ


due to last line below

        Workbooks.Open Filename:=fl
        fn = ThisWorkbook.FullName
        Debug.Print fn
        Application.Workbooks(fn).Activate

 

[Fluff]

Try

fn = ThisWorkbook.Name

but as the file has only just been opened, it should already be the active workbook.