![]() |
#1
|
|||
|
|||
![]() Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim saveIt As Boolean If ThisWorkbook.Name = "Test.xlsm" Then Sheets("Sheet1").Select If Not IsEmpty(A1.Value) Then MsgBox "This workbook is 'read only' Please rename this workbook." strName = "Please enter a new file name." ThisPAth = Application.ActiveWorkbook.Path ThisFile = Range("B1").Value ActiveWorkbook.SaveAs Filename:=ThisPath & ThisFile & ".xlsm", FileFormat:=52, CreateBackup:=False Else MsgBox "Cancelled." End If End If End Sub I thought if I used the BeforeSave function that I could declare this path/filename but alas, I can not. The autofill box displays "Copy of Test.xlsm". I do not even think it sees the above code. How can I accomplish autofilling this box with the desired name. Thanks. Excel 2010 |
#2
|
|||
|
|||
![]()
I think the only issue is the 3rd line of code. The workbook name does not include the file extension at least not in my experience. Change it to
Code:
If ThisWorkbook.Name = "Test" Then Thanks |
![]() |
Tags |
excel 2010, vba excel |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Ahmed AbuZekry | Word VBA | 2 | 03-23-2015 02:14 AM |
![]() |
ptmuldoon | Word VBA | 7 | 03-09-2015 05:38 PM |
![]() |
retiredstuart | Excel | 3 | 09-12-2014 06:26 AM |
the saveas macro in excel 2010 is not transferring the macros to the new workbook | missmr28 | Excel Programming | 3 | 06-20-2012 05:30 AM |
![]() |
tpcervelo | Excel Programming | 1 | 01-05-2012 10:14 PM |