Macro works alone, but not in a loop.

[Joxon]

Hi everyone!

I have a problem.
When I run Macro4() below it works perfect.
But when I try to run it in a loop in macro3() I get problems. It jumps to cells it should not and behave strange. Any guesses why?


Sub Macro3()
Dim i As Integer
For i = 1 To 20
Call Macro4
Next i
End Sub

Sub Macro4()
Call Macro1
Call Macro2
End Sub

Thank you in advance.

Regards
Joxon

 

[j_latendre]

Hmm ok, this is not my code but I have tested it and it seems to do autosum correctly so try this:

Sub DoAutoSum()
Dim x As CommandBarControl
Set x = CommandBars.FindControl(ID:=226)
If Val(Application.Version) > 9 Then _
Set x = x.Controls(1)
x.Execute 'AutoSum
If Selection.Cells.Count = 1 Then
x.Execute 'Again to exit edit mode
End If
End Sub



Than just simply replace
Call Macro2 with
Call DoAutoSum

Jesse

 

[Joxon]

Great! Thanks!
That Autosum macro worked a lot better.
Strange that the other autosum macro didnt work in a loop.

 

[j_latendre]

Yeah I am unsure why yours did not work, but I am no VBA expert so who knows aha and I can't take credit for the VBA code I gave you, I found on another website, I will just take credit for spending my time looking aha. Cheers

Jesse