VBA Excel SendKeys in Loop is not Working

[JrExceler]

I have some problems with this code below,
It's not doing what I expect
I want this code to active an add in to update my main sheet and then goes to the next sheet and update also using the same key combination until page 6,

What I get is that first goes to the page 6 and then performs the key combination 6 times

I appreciate if you can give me some advice of what I'm doing wrong,

Sub UpdateandChange()
   Dim i As Integer

 Worksheets("FirstSheet").Activate

for i= 1 to 6
 
    SendKeys "%XSR"
    
    On Error Resume Next
 Sheets(ActiveSheet.Index + 1).Activate
 If Err.Number <> 0 Then Sheets(1).Activate
 
   Next i

End Sub

 

[JrExceler]

Sorry to write again,
I tried to do it without the loop but it's still not working.
I need this to apply to 30 sheets.
A little help will be highly appreciated.

Thank you

 

[JrExceler]

Just to move up and mention that I still cannot find the solution,
A little help or guideline will be highly appreciated.

Thanks in advance