This is my first attempt at posting code-I've read the instructions-hopefully I've done it right.

I am using the code below to allow a user to calculate all financial reports in a workbook. This came from a sample file and I thought I had adjusted it to fit my needs but I am getting error messages.

The sheets are labeled - Balance Sheet - Income Statement - Variance - Debt Service. It first hangs at the line that I have bolded in red below. None of the cell references in the code below have any formulas or information in them. Could they reference the end of each report?

If anyone could look at this and give me advise I would appreciate it.

Be gentle with me, I am making huge progress but am still learning. Most of it is thanks to people like all of you willing to share your expertise!!


Sub CalcAllReports()

    MsgBox "All Reports will now be calculated.  This may take a few minutes. Please do not cursor around in the spreadsheet while the calculation in is progress.", 64, "Calculation Status"
    Worksheets("Balance Sheet").Select
    Range("Values").Select
    Selection.Clear
    ActiveSheet.Calculate
    Range("K83").Select
    Selection.Copy
    Range("G94").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("K85").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H94").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Worksheets("Cash Flow Statement").Select
    Range("Value").Select
    Selection.Clear
    ActiveSheet.Calculate
    Range("F57").Select
    Selection.Copy
    Range("F59").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Calculate
    Worksheets("Balance Sheet").Select
    Range("Values").Select
    Selection.Clear
    ActiveSheet.Calculate
    Range("K83").Select
    Selection.Copy
    Range("G94").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("K85").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H94").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Worksheets("Cash Flow Statement").Select
    Range("Value").Select
    Selection.Clear
    ActiveSheet.Calculate
    Range("F57").Select
    Selection.Copy
    Range("F59").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Calculate
    Worksheets("Home").Select
    Range("A1").Select
    MsgBox "The Reports have been calculated.", 64, "Calculation Status"
End Sub
Thank you for taking the time to help, any suggestions would be greatly appreciated......