Возврат к листу, где кнопка была нажата

Question

У меня есть следующий макрос, который выбирает ячейку A3 в каждом листе:

Sub test() 
Sheet1.Select 
Range("A3").Select 
Sheet2.Select 
Range("A3").Select 
Sheet3.Select 
Range("A3").Select 
End Sub 

В каждом из листов меня есть кнопка, которая связана с этой макрокоманды. Если вы находитесь на листе2, и вы нажимаете кнопку на каждом листе , ячейка A3 будет выбрана, и в конце вы окажетесь в листе3, хотя вы нажали кнопку на листе2, так как макрос заканчивается листом3.

Однако, я хочу, чтобы после того, как макрос запустился, вы находитесь на листе, в котором вы нажали кнопку. Вы не знаете, как это решить?

Answer 1

Проверить это

Sub test() 
Dim sht_name As String 
sht_name = ActiveSheet.Name 
Sheet1.Select 
Range("A3").Select 
Sheet2.Select 
Range("A3").Select 
Sheet3.Select 
Range("A3").Select 
Sheets(sht_name).Activate 
End Sub 

Answer 2

Sub test() 
strME = Application.ActiveSheet.Name 

Sheet1.Select 
Range("A3").Select 
Sheet2.Select 
Range("A3").Select 
Sheet3.Select 
Range("A3").Select 

Application.Sheets(strME).Select 

End Sub