Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim workSheetsCount As Integer Dim workSheetRowsCount As Integer Dim workSheetColumnCount As Integer Dim strValue As String Dim Worksheet As Worksheet Dim Workbook As Workbook Set Workbook = Workbooks(1) For workSheetsCount =1 To Workbook.Worksheets.Count Set Worksheet = Workbook.Worksheets(workSheetsCount) For workSheetRowsCount =1 To Worksheet.UsedRange.Cells.Rows.Count For workSheetColumnCount =1 To Worksheet.UsedRange.Cells.Columns.Count strValue = Worksheet.Cells(workSheetRowsCount, workSheetColumnCount) Worksheet.Cells(workSheetRowsCount, workSheetColumnCount) ="'"+ strValue Next Next Next End Sub