Neviem, čím to je, ale názov listu stačí predsa doplniť do tohoto riadku:name = wb.Worksheets("PXD").Range("A47").Value