Macro Calculations - Display Data at the End

[ststern45]

I have a question about Excel 365 and how macros calculate VBA code.
I have a macro that has 2 routines that are tied together.
Routine 1 is a loop from 1 to 26
Routine 2 calculates and places the results in a range of data.
My question is all the calculations for 1 through 26 appear when the macro ends.
The older versions of Excel such as Excel 2010 would display the results from each loop value.
Thank you in advance.

 

[jolivanes]

It could possibly help if you showed the code(s) in question.

 

[ststern45]

Sub Step2P1A()

Dim aRng As String
Dim cll As Variant


aRng = Sheets("Position1Calc").Range("F1").Value

With ActiveSheet
For Each cll In .Range(aRng & Range("F10").Value & ":" & aRng & Range("F11").Value).Cells

.Range("F12").Value = cll.Value
         
              
        Step2P1B
        
          
    Next cll
    End With
   
Application.ScreenUpdating = True
   
End Sub




Sub Step2P1B()


    Dim aRng As String
    Dim bRng As String
   
   
    Application.ScreenUpdating = False
   
    Sheets("Position1Calc").Select

   
   
    aRng = Sheets("Position1Calc").Range("I8").Value
    bRng = Sheets("Position1Calc").Range("J8").Value
   
     
   
    'Copy New Position 1 Value To DrawHistory Worksheet
    Range(aRng & Range("K8").Value).Select
    Application.CutCopyMode = False
    Selection.Copy

    Sheets("DrawHistory").Select
    Range(bRng & Range("B17").Value).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
    Application.CutCopyMode = False

    Sheets("Position1Calc").Select
    Range("J2").Select

    'Copy Position 1 Data

    Sheets("Calculations").Select
   
    Range("GK9:VI9").Select
    Application.CutCopyMode = False
    Selection.Copy


    Sheets("Position1Calc").Select
    Range("AB" & Range("I12").Value).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
    Range("J2").Select
       
    Application.CutCopyMode = False
           
      
   


End Sub

 

[jolivanes]