Değiştirmek istermisiniz uyarısı vermeden kayıt etme?

[muyat]

Bir çalışma sayfasını xls formatında bulundugu yere kayıt etmek istiyorum.
Kodları aşagıdaki gibi yaptıgımda bu işlemi arka arkaya yaptıgımda "değiştirmek istermisiniz uyarısı veriyor"Bu uyarıyı vermeden otomatik olarak öncekiyle değiştirerek kayıt etsin istiyorum.Nasıl yapıcaz ve ne eklicez?

yol = ThisWorkbook.Path

    ActiveSheet.Copy
    Do While ActiveSheet.Shapes.Count > 0
DoEvents: ActiveSheet.Shapes(1).Delete
Loop
    ActiveWorkbook.SaveAs Filename:=yol & "\" & ActiveSheet.Name & ".xls", FileFormat:=xlExcel8
    ActiveWorkbook.Close

 

[Korhan Ayhan]

Kayıt işlemi yapan satırdan önce aşağıdaki komut satırını ekleyip deneyiniz.

Application.DisplayAlerts = False

 

[muyat]

Bir soru daha sorcam hocam..aşagıdaki gibi oluşturabiliyorum..Ancak mail ekine koymak istedigimde sarı ile yazdıgım yerde takılıyor.PDfleri sorunsuz eke koyarken xls formatındakileri koyamıyorum.Bi de buna el atar mısınız

SA.Select
    If Range("NW79") = DOĞRU Then                                'TABELA ÖRNEĞİ
    Else
    Sheets("TABELA ÖRNEĞİ").Select
    Range("A1").Select
    yol3 = ThisWorkbook.Path
    ActiveSheet.Copy

Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=yol3 & "\" & ActiveSheet.Name & ".xls", FileFormat:=xlExcel8
    ActiveWorkbook.Close
End If

Ancak şu kısımda

myAttachments.Add yol _
    & "\" & isim & ".pdf"
myAttachments.Add Yol1 _
            & "\" & isim1 & ".pdf"
[COLOR="Yellow"]myAttachments.Add yol3 & "\" & "TABELA ÖRNEĞİ" & ".xls", FileFormat:=xlExcel8[/COLOR]

 

[Korhan Ayhan]

Belirttiğiniz bölümdeki aşağıdaki kısmı silip deneyiniz.

, FileFormat:=xlExcel8