Apply. Display alarm = false
Worksheet (worksheet. Count). Delete' Deletes the last worksheet.
For i = 70 to 367
S = i & amp”& amp range ("b6")
Active workbook. Savecopyas File Name: = "d: \ My Documents \ Credit Village Evaluation \ "&; Standard & Poor's. ".xls ",_
File format: =xlExcel8
then
Apply. Display alarm = true
End joint