naming a sheet based on the name of a cell

[wolves]

i have a workbook where i want to name the every sheet by the value of B1,
anyhelp?

 

[VoG]

Try

Sub NameSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        .Name = .Range("B1").Value
    End With
Next ws
End Sub

 

[wolves]

i tried all the vba codes that i found on the net, but non of them was working, how can i attach the file so u can check it?

 

[VoG]

You cannot attach a file here.

What happens - nothing, error, ...

What is in B1?

 

[wolves]

nothing is happening
there is a text, even if i put any letter, it s not taking it!
i changed the name of the sheet,
it should have a specific name?

 

[VoG]

The code that I posted works for me.

Press ALT + F11 to open the Visual Basic Editor. Select Module from the Insert menu and paste the code into the white space on the right.

Press ALT + Q to close the code window. Press ALT + F8, click on NameSheets then click the Run button.

 

[wolves]

done but it is giving me debug
and like this highlited yellow
.Name = .Range("B1").Value

 

[VoG]

If you have something like dates, blanks or error values in B1, or the same value appears in B1 in more than one sheet the code will error. Try

Sub NameSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        On Error Resume Next
        .Name = .Range("B1").Value
        On Error GoTo 0
    End With
Next ws
End Sub

 

[wolves]

you are the man!!!!
thank you
you saved me