Well, I can't find any volatile code, but there are charts in the workbooks. However there are also charts in the workbooks that skip the popup message. Here is my code. Anyway around the message asking me to save it?
Columns("A:A").Select
Selection.Find(What:="end", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
NumberOfFiles = ActiveCell.Row
Range("A4").Select
For I = 1 To NumberOfFiles - 1
DataGathering:
ActiveCell.Offset(1, 0).Select
Filename = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
WorksheetName = ActiveCell.Value
ActiveCell.Offset(0, -1).Select
Workbooks.Open Filename:="G:\analysis\MASTER\A\" & Filename
Sheets(WorksheetName).Activate
' Error handling if it can't find value
On Error GoTo err_chk
' Find value and copy cell under it
Range("A1").Select
Cells.Find(What:="ROIC", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Offset(1, 0).Copy
' Go to new location and paste
Windows("Credit_Statistics_Report.xls").Activate
Sheets("StatSheet").Activate
ActiveCell.Select
ActiveCell.Offset(0, 8).Select
ActiveSheet.Paste
ActiveCell.Offset(0, -8).Select
Windows(Filename).Activate
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks(Filename).Close
Application.DisplayAlerts = True
Next I
' Error handling
err_chk:
Windows("Credit_Statistics_Report.xls").Activate
Sheets("StatSheet").Activate
ActiveCell.Select
ActiveCell.Offset(0, 8).Select
ActiveCell.FormulaR1C1 = "N/A"
ActiveCell.Offset(0, -8).Select
Windows(Filename).Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Windows("Credit_Statistics_Report.xls").Activate
Resume ZeroErrors
ZeroErrors:
On Error GoTo 0
GoTo DataGathering
End Sub