Zurück zu Blatt, wo Taste

Question

Ich habe folgende Makro, das in Zelle A3 jedem Blatt auswählt geschoben wurde:

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

In jeder der Folien I über eine Taste, die zu diesem Makro verknüpft ist. Wenn Sie in Blatt2 sind und Sie auf die Schaltfläche in jedem Blatt klicken, wird die Zelle A3 ausgewählt und am Ende werden Sie in Blatt3 sein, obwohl Sie die Taste in Blatt2 gedrückt haben, da das Makro mit Blatt3 endet.

Allerdings möchte ich, dass sobald das Makro ausgeführt wurde Sie in dem Blatt sind, in dem Sie den Knopf gedrückt haben. Hast du eine Idee, wie du das lösen kannst?

Answer 1

prüfen diese

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