Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Name work sheet
I am trying to name the only sheet in a workbook the days date.
This doesn't work. I guess if it worked I wouldn't be writing this. oldjay Sub Save_File_As1() ' Dim NewShtDate As String Dim listnumber As String NewShtDate = Format(Date, "mm-dd-yy") ActiveSheet.SaveAs = NewShtDate listnumber = InputBox("Please enter List number to save", "Customer's List", "Word List " & NewShtDate) List = "C:\Cora\" & listnumber & ".XLS" ActiveWorkbook.SaveAs Filename:=List End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Name work sheet
Try the below
Sub Save_File_As1() ' Dim listnumber As String ActiveSheet.Name = Format(Date, "mm-dd-yy") listnumber = InputBox("Please enter List number to save", _ "Customer's List", "Word List " & NewShtDate) List = "C:\Cora\" & listnumber & ".XLS" ActiveWorkbook.SaveAs Filename:=List End Sub -- Jacob "oldjay" wrote: I am trying to name the only sheet in a workbook the days date. This doesn't work. I guess if it worked I wouldn't be writing this. oldjay Sub Save_File_As1() ' Dim NewShtDate As String Dim listnumber As String NewShtDate = Format(Date, "mm-dd-yy") ActiveSheet.SaveAs = NewShtDate listnumber = InputBox("Please enter List number to save", "Customer's List", "Word List " & NewShtDate) List = "C:\Cora\" & listnumber & ".XLS" ActiveWorkbook.SaveAs Filename:=List End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Name work sheet
Thanks
"Jacob Skaria" wrote: Try the below Sub Save_File_As1() ' Dim listnumber As String ActiveSheet.Name = Format(Date, "mm-dd-yy") listnumber = InputBox("Please enter List number to save", _ "Customer's List", "Word List " & NewShtDate) List = "C:\Cora\" & listnumber & ".XLS" ActiveWorkbook.SaveAs Filename:=List End Sub -- Jacob "oldjay" wrote: I am trying to name the only sheet in a workbook the days date. This doesn't work. I guess if it worked I wouldn't be writing this. oldjay Sub Save_File_As1() ' Dim NewShtDate As String Dim listnumber As String NewShtDate = Format(Date, "mm-dd-yy") ActiveSheet.SaveAs = NewShtDate listnumber = InputBox("Please enter List number to save", "Customer's List", "Word List " & NewShtDate) List = "C:\Cora\" & listnumber & ".XLS" ActiveWorkbook.SaveAs Filename:=List End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
HOW TO MAKE A LIST OF WORK SHEET IN WORK BOOK IN EXCEL 2007 | Excel Programming | |||
extracting totals from 1 work sheet to another work work sheet | Excel Discussion (Misc queries) | |||
GETTING SELECTED DATA FROM A WORK SHEET TO OTHER WORK SHEET | Excel Discussion (Misc queries) | |||
If I have a work sheet protected and try to run a macro to hide rows or columns it won't work. Correct? | Excel Programming | |||
Populating work sheet combox with another work sheet values | Excel Discussion (Misc queries) |