| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save as troubles
Works a treat Norman thank you
Sandy "Norman Jones" wrote in message ... Hi Sandy, Try: ThisWorkbook.SaveCopyAs Filename:="Personal Data-" _ & inputText & ".xls" --- Regards, Norman "Sandy" wrote in message ... Hi The following fails at the line indicated between asterisks - can anyone tell me why and offer a solution Sub New_Name() Application.EnableEvents = False Application.Run "Open_All_Sheets" Dim inputText As String inputText = Application.InputBox("Enter name here", _ "Persons Name", , , , , 2) Sheets("Data Input").Range("D1:H1").Value = inputText Worksheets("Data Input").Buttons("Name_Button").Visible = False 'Worksheets("Data Input").Buttons("Name_Button").Visible = True Application.Run "Lock_All_Sheets" ********** ThisWorkbook.SaveCopyAs "Personal Data-" & inputText.xls ********** ThisWorkbook.Close SaveChanges:=False Application.EnableEvents = True End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Troubles | Excel Discussion (Misc queries) | |||
| COM Add-in Troubles | Excel Discussion (Misc queries) | |||
| Chart troubles | Excel Worksheet Functions | |||
| IF troubles | Excel Worksheet Functions | |||
| troubles with ActiveWorkbook.Save | Excel Programming | |||
Threaded Mode
