Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[blue]myname = InputBox("Name?")
ActiveWorkbook.SaveAs "C:\Excel Files\" & myname & Format(Date, "mmdd") & ".xls"[/blue]
p = InStr(ActiveWorkbook.Name, ".")
If p = 0 Then
myname = ActiveWorkbook.Name
Else
myname = Left(ActiveWorkbook.Name, p - 1)
End If
ActiveWorkbook.SaveAs "C:\Windows\Desktop\" & myname & Format(Date, "mmdd") & ".xls"
[blue]Name "C:\Path\To\File.txt" As "C:\Path\To\NewName.txt"[/blue]