Sayfaları Array şeklinde mail gönderirken Sayı değeri ve biçimi şeklinde kopyalama

[a_self_lion]

Merhaba arkadaşlar

sizlerin yönlendirmesi ile
http://www.rondebruin.nl/win/s1/outlook/amail3.htm
bu sayfadan aldığım kodlarla raporumda ki bazı sayfaları ilgili kişilere otomatik göndermek için gerekli kod düzenlemesini yaptım.

Ama Sayfaları aşağıdaki gibi kopyaladığı-m için formülleri ve bağlantıları da kopyalıyor. direk rakamları sayı değerleri ve biçimleri şeklinde kopyalasa tam istediği-m gibi oluyor.

.Sheets(Array("Sheet1", "Sheet3")).Copy

Burada da With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
bu şekilde kayıt yapıyor.

Nasıl kopyala yapmam gerekiyor.