moving sheet and keep activating one

[lezawang]

Hi
I have 3 sheets named 1,2,3 and I am moving them around using the code below. sheet name "2" has the button which run the code. I want to do the move but keep going back to sheet("2"). I did it as below. How you would do it yourself? Is that good and efficient programming? Thank you so much

Sub movesheet()
    Dim x As Integer
    Dim y As Integer
    x = InputBox("sheet to move")
    y = InputBox("after which sheet")
    Workbooks(1).Worksheets(x).Move after:=Worksheets(y)
    Workbooks(1).Worksheets("2").Activate
End Sub

 

[Michael M]

I'd go this way...

Sub movesheet()
Dim x As Integer, y As Integer
x = InputBox("sheet to move")
y = InputBox("after which sheet")
    With Worksheets(x)
        .Move after:=Worksheets(y)
    End With
End Sub

 

[lezawang]

Thank you very much for your reply and help but after I run that code, sheet2 will not be the active one. Thank you

 

[MARK858]

The added sheet will always be the activesheet until you activate the sheet you want (which you have done). What is your issue?

 

[lezawang]

Ok thank you very much. Just wanted to make sure. Thanks alot.