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
|