Change TAB Name

[mmayna03]

I have looke at threads asking the same question to some degree. I have tried some of the recommended marco solutions, but not solve my requirement.

I run a raw data report each day and use a Cygwin shell script to group and create up to 20 separate .csv reports. They are all named based upon their warehouse number. Before I can run the macro to pretty up the report and save it as .xlsx file, I have to manually rename the .csv or change the tab name.

Is there way to change the tab name from A11_NSF_Report to NSF_Report? The other reports will have B23, C21, etc before the "_NSF_Report.

I want to use a single macro and stop wasting time manually deleting the warehouse name.

Thanks,

Michael

 

[shg]

Worksheets(1).Name = "NSF_Report"

 

[Robert Mika]

Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "C:\...\...\Desktop\New folder"
MyFile = Dir(MyFolder & "\*.xls")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
Worksheets(1).Name = "NFS_Report"
MyFile = Dir
ActiveWorkbook.Close SaveChanges:=True

Change ... to your subfolders
Loop
End Sub

 

[mmayna03]

Thank you. So simple. Worked fine.

 

[mmayna03]

Thanks, your macro code worked fine too. I will keep on file for future use.