Excel kayıt ederken dönen hata

[Ahmet ÖZGÜR]

Merhaba,

Excel üzerinden çalıştığımız 3 sayfalık tablomuz var. Uzun süredir sorun yaşamadık fakat son bir haftadır kayıt ederken hata almaktayım.

Modüller içerisinde Modül 2 yi kaldırınca sorun kalmıyor fakat ilave edince hata devam ediyor. Modul 2 mail göndermek için kullanılan bir makrodur.

hata resmi

Hata İletisi:

Sorun imzası:
  Sorunlu Olay Adı:    APPCRASH
  Uygulama Adı:    EXCEL.EXE
  Uygulama Sürümü:    14.0.6024.1000
  Uygulama Zaman Damgası:    4d83e607
  Hata Modülü Adı:    mso.dll
  Hata Modülü Sürümü:    14.0.6023.1000
  Hata Modülü Zaman Damgası:    4d7a3e58
  Özel Durum Kodu:    c0000005
  Özel Durum Uzaklığı:    00192f0d
  OS Sürümü:    6.1.7601.2.1.0.256.48
  Yerel Kimlik:    1055

Sorun hakkında ek bilgiler:
  LCID:    1055
  skulcid:    1055

Çevrimiçi gizlilik bildirimimizi okuyun:
  http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x041f

Çevrimiçi gizlilik bildirimi yoksa, lütfen çevrimdışı gizlilik bildirimimizi okuyun:
  C:\Windows\system32\tr-TR\erofflps.txt

modul 2 deki mail makrosu:

Sub SendShByEmail()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Dim ShName As String, WbName As String

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlManual

Sheets(ActiveSheet.Name).Copy

ShName = ActiveSheet.Name

ActiveSheet.DrawingObjects.Delete
Dim X As Range
For Each X In [a1:ar56]
If X.HasFormula = True Then
X.Value = X.Value
End If
Next X

WbName = ThisWorkbook.Path & "\" & ShName & ".xls"

ActiveWorkbook.SaveAs WbName, FileFormat:=-4143
ActiveWorkbook.Close False


Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "xx@xx.com.tr" & ";" & "xx@xx.com.tr" & ";" & "xx@xx.com.tr" & ";" & "xx@xx.com.tr" & ";" & "xx@xx.com.tr"
.Subject = "Sipariş Genel Durum"
.Body = "Sipariş Genel Durum Ektedir. İyi Günler."
.Attachments.Add WbName
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
Set VBComp = Nothing

Kill WbName

Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub