Sub open2() Set myWorkbook = Workbooks.Open(FileName:="C:\Data\SalesData1.xlsx") MsgBox myWorkbook.NameEnd Sub