or to make it faster
Sub Change_name()
Dim sh as Worksheet
For each sh in Worksheets
sh.Name = sh.Name & sh.Range("C4").Value
Next i
End Sub
Almost always better to avoid selecting and activating which are usually not
necessary
--
Regards,
Tom Ogilvy
"Alf Bryn" wrote:
If you want to add the value in C4 from each sheet to the existing sheet
name you could do like this:
Sub Change_name()
Dim i As Integer
For i = Sheets.Count To 1 Step -1
Application.ScreenUpdating = False
Sheets(i).Activate
Sheets(i).Name = Sheets(i).Name & Range("C4").Value
Next i
Application.ScreenUpdating = True
End Sub
"Tom Ogilvy" wrote in message
...
Sub Renamesheets()
dim sh as Worksheet
for each sh in workbook.Worksheets
sh.name = sh.Range("C4").Value
Next
end Sub
would be my guess of what you want
--
Regards,
Tom Ogilvy
"vumian" wrote:
I have a file that i do not know how many sheet are there in before
i need to copy contain of C4 to name of sheets
Thank for your help.
--
vumian
------------------------------------------------------------------------
vumian's Profile:
http://www.excelforum.com/member.php...o&userid=36494
View this thread:
http://www.excelforum.com/showthread...hreadid=564787