Well your file looks for some library that I don't have. But I think your Workbook_Open routine will effect your quote elimination with this tested added one liner (in red):

For Each wsSheet In wbBook.Worksheets
          If Not wsSheet.Name = "Blank" Then wsSheet.Activate
             With ActiveWindow
                .DisplayHeadings = False
                .DisplayGridlines = False
             End With
                ActiveSheet.UsedRange.Replace """", ""
       Next wsSheet