Macro to rename multiple worksheets with the workbook name

[prasadyanz]

For example , consider a sheet name ABC_1, workbook name is XYZ.
I want to rename the sheets to "XYZ ABC_1" . Is it possible? i need to do it to multiple files, please help. thanks in

 

[DanKerr07]

Hi Prasadyanz

This will work for you:

Sub RenameSheets()
Dim FileName, SheetName As String
FileName = ActiveWorkbook.Name
SheetName = ActiveSheet.Name
Sheets(1).Name = FileName & " " & SheetName
End Sub

though it will only change the name of the first sheet in the workbook.

Dan