Makro Kodundaki Hata Yardımı Hak.

[mkarakas_58]

Merhaba arkadaşlar makro kaydetten yapmış olduğum makro kodu aşağıdadır. Kalın yazılan satırda hata vermektedir. Nedeni çözdüm excel dosyasının adı farklı olduğundan geri dönememektedir. İstiyorum ki excel dosya adı ne olursa olsun geri dönsün. Yardımcı olabilirmisiniz?

Sub Makro2()
'
' Makro2 Makro
'

'
Sheets("ANA SAYFA").Select
Sheets("ÖDENEK").Visible = True
Sheets("ÖDENEK").Select
Sheets("ÖDENEK").Copy
Columns("A:M").Select
Range("A2").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B10:M10").Select
Application.CutCopyMode = False
Rows("15:16").Select
Selection.Cut
Sheets.Add After:=ActiveSheet
Rows("1:1").Select
ActiveSheet.Paste
Columns("K:K").ColumnWidth = 16.29
Columns("J:J").ColumnWidth = 12.86
Columns("I:I").ColumnWidth = 14.14
Columns("H:H").ColumnWidth = 9.57
Columns("G:G").ColumnWidth = 11.71
Columns("F:F").ColumnWidth = 11.29
Columns("E:E").ColumnWidth = 11.14
Columns("D").ColumnWidth = 12
Columns("C:C").ColumnWidth = 10.43
Columns("B:B").ColumnWidth = 11.43
Range("M1").Select
Sheets("Sayfa2").Select
Sheets("Sayfa2").Name = "ÖDENEK TABLOSU - 2"
Sheets("ÖDENEK").Select
Sheets("ÖDENEK").Name = "ÖDENEK TABLOSU - 1"
Range("Q1").Select
ChDir _
"C:\Users\Mehmet Karakaş\AppData\Roaming\Microsoft\Windows\Network Shortcuts"
ChDir "C:\Users\Mehmet Karakaş\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Mehmet Karakaş\Desktop\ÖDENEK TABLOSU.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Windows("İEP Otomasyon - 2017.xlsm").Activate
Sheets("ÖDENEK").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("ANA SAYFA").Select
End Sub

 

[PLİNT]

Merhaba
Makronun bulunduğu dosya ise o bölümün yerine şöyle olabilir.

Thisworkbook.activate

 

[mkarakas_58]

Merhaba teşekkür ederim hocam. Sağolun.