userformda farklı kaydet hatası hk

[chakistes]

iyi akşamlar arkadaşlar aşağıdaki kod ile userformdaki faaliyet sayfasında farlı kaydet yaptıktan sonra
anamenü düğmesine bastıktan sonra sayfa1 gelip
run time error 9
subscript out of range hatası alıyorum ve ekranda liste.xlsx açılmış görünüyor

On Error Resume Next

Sheets("faaliyet").Activate

Sheets("faaliyet").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\LİSTE.xlsx "
ActiveWorkbook.Quit
MsgBox "MASA ÜSTÜNE LİSTE OLARAK KAYIT EDİLDİ.", vbCritical, "--------------------------------"
'--------------------------

 

[Muzaffer Ali]

Merhaba.
ActiveWorkbook.Quit silin ActiveWorkbook.Close yazın

 

[chakistes]

teşekkür ederim 'Workbooks("LİSTE.xlsx").Close True bu kodla hallettim.