Soru 2010 ile 2013 makro farkı.neden çalışmıyor?

[sefa044]

Arkadaşlar excel 2010 versiyonunda kullandığım kod sorunsuz çalışırken dosyayı flashla başka pc ye taşıyıp 2013 excelde açtığımda hata veriyor.

Sub Ortak_Dosya_Gönder()
Application.ScreenUpdating = False

If [B30].Value = "" Or [C30].Value = "" Then
MsgBox "Boş Alanları Doldurunuz."

ElseIf MsgBox("Dosya Gönderilecek. Emin misiniz?", vbYesNo + vbQuestion, "ONAY") = vbYes Then

ActiveWorkbook.Save
Application.DisplayAlerts = False
Dim ad1, ad2, ad3 As String
ad1 = Sheets("giriş").Range("C30")
ad2 = Sheets("VERİLER").Range("G16")
ad3 = Sheets("VERİLER").Range("G15")

ChDrive "Z"
ChDir "Z:\" & Range("B30")
ActiveWorkbook.saveas Filename:=(ad1) & "_" & (ad2)
Application.DisplayAlerts = True

Workbooks.Open (ad3) 'ESAS DOSYAYI AÇAR.
Sheets("giriş").Select
Range("A9").Select

Application.Wait (Now + TimeValue("00:00:02"))
Windows((ad1) & "_" & (ad2)).Activate
ActiveWorkbook.Close True

Windows(ad3).Activate (bu satırda hata veriyor.)
Sheets("giriş").Select
Range("A9").Select

End If
Application.ScreenUpdating = True
End Sub

Nasıl çözeriz. Tşk.

 

[derisa963]

Saygıdeğer @sefa044

ActiveWorkbook.Close True

Bu Kodu aşağıdaki kod ile değiştirir isek düzeleceğini umut ediyorum

Workbooks((ad1) & "_" & (ad2)).Close True