VBA to rename all worksheets in workbook based on cell value

[alistair23]

Hi all! I'm trying to rename all the worksheets in a workbook so the sheet name is = to contents of cell B3.
*Cell B3 contains a full name, _ and kanji characters (example: Chris Stevens_城田陸)

I tried using the below VBA but I get an error 'run time error 13' type mismatch...not sure how to fix this
Could someone help correcting this for me?
Thank you so much in advance!

Tried VBA:
Sub sample()
Dim sh As Worksheet
For Each sh In Worksheets
With sh
.Name = .Range("B3").Value
End With
Next sh
End Sub

 

[FormR]

Hi, the double quotes in your image don't look the like normal double quotes in your post - try re-copying this code and see if it's any better.

Sub sample()
Dim sh As Worksheet
For Each sh In Worksheets
    With sh
        .Name = .Range("B3").Value
    End With
Next sh
End Sub

 

[mohadin]

Hi
I wonder how to rename all the sheets with the same contents of range("B3")!!!
I would guess
Something like this

Sub sample()
    Dim sh As Worksheet
    Dim i As Long
    i = 3
    For Each sh In Worksheets
        With sh
            .Name = .Range("B" & i).Value
        End With
        i = i + 1
    Next sh
End Sub