I have the folllowing VB Script that is going through a folder and adding the date to "A1", How can I save the modified file with a different name and add change "Sheet1" to "Today" and close all open spreadsheets.
Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace ("C:\Documents and Settings\George A. Blocker\My Documents\Question_9")
For Each strFileName in objFolder.Items
objExcel.Workbooks.open(objFolder & "\" & strFileName )
objExcel.Cells(1, 1) = Now()
******Add Code Here*******