There are lots of macros in the work book. I will have to send you the files.
But the only that is causing the problem is inside a Sub for a button on a
Userform:
Private Sub cmdUpdate_Click()
Dim ws As Worksheet, c As Range
Dim BO_Datafile_Name As String, BOReport_lastColumn As String
Dim BOReport_lastRow As Integer, BOPos As Integer
Dim BOReportWS As Worksheet, goalsTrackerWS As Worksheet
Dim rngBOReport As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Workbooks.Open filename:=Me.txtFilePath.Value, UpdateLinks:=0,
ReadOnly:=True
BO_Datafile_Name = ActiveWorkbook.Name
Workbooks(BO_Datafile_Name).Worksheets("Sheet1").Select
Workbooks(BO_Datafile_Name).Worksheets("Sheet1").Copy
Before:=Workbooks("AAV Daily Reports 2010_ver1.xls").ActiveSheet
'"" CLOSE THE BO DOWNLOAD DATA FILE ""'
Workbooks(BO_Datafile_Name).Activate
Workbooks(BO_Datafile_Name).Close
Workbooks("AAV Daily Reports 2010_ver1.xls").Worksheets("Sheet1").Activate
BOReport_lastRow = ActiveSheet.UsedRange.Rows.Count
Set BOReportWS = Worksheets("BO Download")
ThisWorkbook.Worksheets("Sheet1").Range("A4:AW" & BOReport_lastRow).Copy
ThisWorkbook.Worksheets("BO Download").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Range("B4").Select
ThisWorkbook.Worksheets("Sheet1").Delete
BOReport_lastRow = BOReportWS.Range("A65536").End(xlUp).Row
BOPos = InStr(1,
BOReportWS.Range("IV3").End(xlToLeft).Address(ColumnAbsolute:=False), "$",
vbTextCompare)
BOReport_lastColumn =
Left(BOReportWS.Range("IV3").End(xlToLeft).Address(ColumnAbsolute:=False),
BOPos - 1)
Unload Me
Worksheets("BO Download").Select
Range("A2") = "This Report was generated on " & Format(Now, "mmmm d, yyyy
h:mm:ss AMPM") & " (Eastern Time)"
Range("B4").Select
Worksheets("Goals Tracker").Select
Worksheets("Goals Tracker").Range("G3:GA712").Calculate
'"" DELETE BO DOWNLOAD TAB, SAVE THE FILE AND CALCULATE THE WORKSHEET ""'
Dim obj As OLEObject
Dim filename As String, todaysDate As Date
filename = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)
'Worksheets("Goals Tracker").Calculate
Worksheets("Goals Tracker").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Worksheets("BO Download").Select
Worksheets("BO Download").Delete
ActiveWorkbook.SaveAs filename & "_" & Format(Date, "mmmdd_yy") & ".xls"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
End Sub
