Kitablıktan Sadece 1.sayfayı Farklı Kaydet

[muttabomer]

Geçen Haftadan beri uğraşıyorum,
Sağolsun Ömer hocamda baya bi yardımı dokundu,
Yalnız kafama takıldığı için vazgeçemiyorum.

Benim oluşturduğum Kitaplıkta
1.Sayfa FATURA
2.Sayfa FATURA KARTI (Gizli)
3.Sayfa TUM FIRMALAR (Gizli)

Şunları yaptık; İlk Olarak bana Fatura numarısını soruyor, yazıp kayıt dediğimde dosya adını H24 den tarihi CH50 de alıp Örn: 00024_Enver_16.11.2017 olarak kaydediyor.

Ama şunu da yapmak istiyorum;
1.FATURA sayfasına kaydet butonu ekledim, butona tıkladığımda
diğer iki sayfa ve bulunan bütün makrolar silinip, yukarıda açıklağım bilgileride gerçekleştirsin.

Makro Şu Şekilde;



Sub FarkliKaydet()

Dim yol As String, ft_no As String

yol = "/Volumes/Merkez_MAC/MERKEZ/H/01_HALÜL K†‚†KKINACI/FATURALAR/MAC_FATURA/"
ft_no = Application.InputBox("Fatura NumarasÜnÜ YazÜn.", "KAYIT")

If ft_no = "" Then
MsgBox "KayÜt YapmadÜm! ....... Fatura No Bo§ BÜrakÜlmaz"
Exit Sub
End If

Application.ScreenUpdating = False
Application.DisplayAlerts = False

ActiveWorkbook.Sheets("FATURA").Copy
ActiveWorkbook.SaveAs Filename:=yol & "" & ft_no & "_" & _
[H24] & "_" & Format([CH50], "_dd.mm.yyyy") & ".xls", FileFormat:=53
ActiveWorkbook.Close

Application.ScreenUpdating = True
End Sub

Yalnız; Uyguladığımda kırmızıyla belirttiğim yerde hata veriyor,
Runtime error '1004'
Method'SaveAs' of object'_Workbook'failed.

Lütfen yardımcı olabilirmisiniz.