تغییر نام بر حسب تاریخ

[ali.b]

با سلام خدمت دوستان
ی ماکرو ایجاد کردم که وقتی اونو اجرا میکنم قسمت های از صفحه اکسل رو که میخوام رو کپی و با ی اسم پیش فرض Book1 ذخیره میکنه

چکار کنم که به جای اسم پیش فرض از اسمی که در یک سلول مورد نظر هم تغییر نام بده مثلا در سلول مورد نظر من تاریخ روز هست میخوام به جایی book1 تاریخ اون روز رو بنویسه

Sub Macro1()'' Macro1 Macro'
'    Range("A2:J8").Select    Range("A3").Activate    Selection.Copy    Workbooks.Add    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _        SkipBlanks:=False, Transpose:=False    ActiveSheet.Paste    Application.CutCopyMode = False    ChDir "C:\Users\Ali\Desktop"    ActiveWorkbook.SaveAs Filename:="C:\Users\Ali\Desktop\Book1.xlsx", _        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=FalseEnd Sub 

[امين اسماعيلي]

Sub Macro1()

End Sub
'' Macro1 Macro'
'
Range("A2:J8").Select
Range("A3").Activate
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Users\Ali\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Ali\Desktop\" & Range("A1").Value & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub[COLOR=#000000][COLOR=#0000BB]  [/COLOR][/COLOR]

ببین مشکلت حل میشه اینجوری تو A1 یه نام هر چی میخوای بزار البته اگر شیتش مهمه و ارور دارد بزار مثل

sheet1.range("A1")

[ali.b]

جواب داد ممنونم

Sub Macro1()'
' Macro1 Macro'
'
Range("A2:J8").Select
Range("A3").Activate
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Users\Ali\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Ali\Desktop\" & Range("A1").Value & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub