Userform a atanan butonda excel dosyası açmama sorunu

[sratacc]

ustalar selamlar.

ekte gönderdiğim dosyamda, userform üzerinde buluanan üç butondan birine

Private Sub CommandButton1_Click()
Dosya = "C:\CTD.xlsx"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

kodunu atadım. normalde düzgün çalışan bu kodu userform üzerindeki bir butona atadığım vakit excel direkt kitleniyor.
acaba sorun kodda mı(normalde herhangi bir butona atadığımda çalışıyor).
yoksa userformun böyle bir gıcıklığı mı var.

 

[Murat OSMA]

workbooks.open(dosya)

kodunu deneyin...

 

[sratacc]

workbooks.open(dosya)

kodunu deneyin...

teşekkürler kod çalıştı sıkıntı yok.

userform açıkken excel üzerinde gezinmek için ne yapmam gerekli acaba. userformu kapatmadan işlem yapılmıyor.