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