Using VBA , How to rename Workbooks

[margil patel]

I Have an example of rename worksheet. Like this example I want rename my workbooks.
any one help me?

Thanks...

 

[Asheesh]

Hi Margil,
Are the workbooks that you want to rename saved in a folder?
Is that a single folder or there are subfolders as well?

 

[margil patel]

Yes, the workbook saved in single folder.

 

[bobhc]

The search box top right does work and this link is the first sheet of many similar questions, why reinvent the wheel.


http://chandoo.org/forum/search/738436/?q=rename+sheets&o=date



.

 

[Jake Collins]

Dear Margil

A sub routine such as this should do the trick. You will need to add the microsoft scipting runtime reference for this to work.

Sub RenameFiles()
Dim fso As New FileSystemObject
Dim flds As Files
Dim flds2 As Files
Dim FolderName As String
FP = ThisWorkbook.Path

Set flds = fso.GetFolder(FP).Files
For I = 1 To 133
oldname = Cells(I, 3).Value
newName = Cells(I, 2).Value
For Each f In flds
If f.Name = oldname Then
Workbooks.Open f
Workbooks(f.Name).SaveAs newName
Workbooks(f.Name).Close
Workbooks(newName).Close
f.Delete
End If
Next f

Next I
End Sub

 

[margil patel]

Thanks Jake collins.

how to add the microsoft scipting runtime?