Rename excel files in a folder

[ikantimahanti]

I started a new job in Cognos reporting. We scheduled to run reports n save(in Excel format) in a particular folder. But the reports are saving with a unique system generated numbers. I need to save the Excel file names with a filename derived from cell A1.

Please help with a solutions, any help would be greatly appreciated.

Thanks,
Isaac

 

[ikantimahanti]

Top ten payors

 

[VoG]

I just ran the code with that value in A1 and it worked with no error.

 

[ikantimahanti]

I have no idea how it is going wrong. I tried bunch of times, now its showing a different error.

Run-time error '9':
Subscript out of range

 

[ikantimahanti]

is there any way that i can upload the excel sheet im using...

 

[VoG]

Subscript out of range almost certainly means that you don't have a sheet called Sheet1.

 

[ikantimahanti]

thats right. There is no name as 'Sheet1'. its renamed as "Top10payors_1'.

 

[VoG]

Maybe

Sub SaveMe()
ActiveWorkbook.SaveAs Filename:=Sheets(1).Range("A1").Value & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

 

[ikantimahanti]

Here is what i need exactly, Sorry for bothering you...

Automatically say for every 30 mins a excel file will be saved in a folder. I have to rename the excel file with cell A1 on sheet1. Sheet1 names are different to each file....and the excel files should be renamed as they come into that folder

 

[VoG]

Sorry I cannot help with that.

I can help you to rename all the files in a folder but not as they come in.

 

[ikantimahanti]

I really appreciate your patience with me.

Can we create a batch script and run it through Task Scheduler for every 5/10 mins.