Etkin çalışma, makro yürütme

Question

'dan sonra rasgele değişti Bir makroyu çalıştırdıktan sonra (sql sunucusundan kayıtları seçer, başka bir çalışma kitabına referans yok), diğer açık çalışma kitaplarından biri rasgele etkinleştirilir.
Makro, kitap1'de, makroyu kitap1'den çalıştırıyorum.
Sonunda, book2 (veya book3 vb.) Etkinleşir. Niye ya ?!
Ben
Bu şey değil her zaman olur sadece End Sub

Dim Wb As Workbook 
Set Wb = Active/ThisWorkbook 
Wb.Activate 

veya

msgbox "ok" 

önce koymak ama hala (mesaj kutusu book2 üzerinde pop up) Başka bir açık çalışma kitabına uçmaya çalıştı sadece bazen rastgele. Teşekkür ederiz

Güncelleme: Kitap2'de bir cirrcular refference'ı düzelttiğim için durmuş gibi görünüyor.

Sub Bus() 
Dim Wb As Workbook 
Set Wb = ActiveWorkbook 
Debug.Print Wb.Name 

Set Wb = ThisWorkbook 
Debug.Print Wb.Name 


End Sub 

Answer 1

See Difference Between ActiveWorkbook and ThisWorkbook Eğer Book2 yukarıdaki kodu koyarsanız. Modül 1 ve Seç Kitap1 ve çalıştırmak o

Alacaksın hemen Pencerede çıkışı şu olsun:

Book1 
Book2