I need code that will allow me to saveas the date which is in cell B1 but I cannot work out how to do this, So far I have below but it isnrt working?
Sheets("X47").Select ActiveWorkbook.SaveAs Filename:=Range("B1").Text, FileFormat:=52
I need code that will allow me to saveas the date which is in cell B1 but I cannot work out how to do this, So far I have below but it isnrt working?
Sheets("X47").Select ActiveWorkbook.SaveAs Filename:=Range("B1").Text, FileFormat:=52
trySheets("X47").Activate If IsDate(Sheets("X47").Range("B1").Value) Then ActiveWorkbook.SaveAs Filename:=Format(Range("B1").Value, "DDMMMYYYY"), FileFormat:=52 End If
Thanks,
Solus
Please remember the following:
1. Use [code] code tags [/code]. It keeps posts clean, easy-to-read, and maintains VBA formatting.Highlight the code in your post and press the # button in the toolbar.2. Show appreciation to those who have helped you by clicking below their posts.
3. If you are happy with a solution to your problem, mark the thread as [SOLVED] using the tools at the top.
"Slow is smooth, smooth is fast."
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks