Application.Sumif funciton activates the other sheet tab

Hello

I am using this function in vba.

 With Sheets("Journal")
.Range("C6").Value = Application.SumIf(.Range("E9:E1048576"), .Range("A2"), _
.Range("G9:G1048576")) - Application.SumIf(.Range("E9:E1048576"), .Range("A2"), _
.Range("H9:H1048576")) + Application.VLookup(.Range("A2"), Sheets("Chart_of_Accounts").Range("P3:T839"), 5, 0)
End With

Problem is that when I execute this code an irrelevent sheet is activated and I have to switch back to the Journal sheet.

I am unable to configure it.

Hi,

That code should not activate any sheet. If you need to make the Journal sheet active, simply add

.Activate

before the End With line.

thanks a lot D

I would like to know Why I am unable to give reputation to an expert twice if he helped me for two times consecutively?
I am not giving for the same post but to same person for a different post. Will this not show my thanklessness?

I do not know why the system works that way but be assured that it certainly does not make you appear ungrateful to me!