merhabalar aşağıdaki kodla birden fazla dosya açıksa bunları kapatmadan userform açılıyo fakat kendı çalışma kıtabı kapalı olduğundan yada diğer çalışma kitapları aktif olduğundan işlem yapmaya izin vermiyo hata veriyo

kendı çalışma kıtabını userforma nasıl gosterebılırız

[code]Private Sub Workbook_Open()
If Application.Workbooks.Count > 1 Then
ad = ThisWorkbook.Name
Windows(ad).Visible = False
UserForm1.Show 0
Else
ad = ThisWorkbook.Name
Windows(ad).Visible = False
Application.Vis