Dim book As Workbook
Set book = Workbooks.Open(fileNameWithPath, ReadOnly:=True)