Hata kodu:Run-time "424"

[aliakgul]

Sub DeğerDeğiştirici34_Değiştir()
If CheckBox1.Value = True Then
Sheets("KARNE").Select
ActiveWindow.SelectedSheets.PrintOut
Sheets("LST").Select
End If
If CheckBox2.Value = True Then
Sheets("BELGE").Select
ActiveWindow.SelectedSheets.PrintOut
Sheets("LST").Select
End If
End Sub
İyi akşamlar,
Yukarıdaki kodları uyguladığımda aşağıdaki hata mesajını veriyor ve ilk satırı( kırmızı satır) işaret ediyor...

 

[xxrt]

Türkçe karakter kullanmadan deneyin.Birde bu kodları boş modüle yazın.

Sub degerdegistirici34_degistir()

 

[mehmett]

Sn aliakgul,

Ekteki gibi denedim hata vermedi.

Hata veren dosyanızı veya küçük bir örneğini ekleyebilir misiniz?