Rename Sheet Name in multiple Workbooks

[VinodKrishnappa]

Can you please help me on this.

How to rename sheet name in multiple workbooks in a folder to some other name.

Ex: Multiple workbooks are in a folder. "Sheet1" is the common name in all the workbooks. This "Sheet1" to be renamed as "TaxCalc"

 

[NimishK]

Try

Dim wBook As Excel.Workbook
Set wBook = Workbooks.Open("C:\Vinod\1.xlsx")
wBook.sheets("Sheet1").Name = "TaxCalc"