Renaming worksheet based on what is contained in one cell conteant shows a syntax error

Hi,
The code looks fine to me. is it possible that you have also chart sheets in your workbook? However in this case it will not be a syntax error...

Buran

Also, check that you don't have empty G2 cell and that values in the G2 cells are allowed for worksheet name - there are some characters that are not allowed in the worksheet name.
The code works fine when only worksheets in the workbook and all G2 are not empty
Buran

Can you upload your sample workbook? You can find my sample workbook and your code works just fine in it.

If it is in your personal workbook, then ThisWorkbook refers to it, not the active workbook. So what you are doing is that you loop trough sheets in active workbook and for the name of first worksheet in the active workbook, you try to read g2 value from the first sheet in the personal workbook (most probably empty cell). I assume that another problem would be different number of sheets in the two workbooks

like buran said I reckon you meant

Sub Renamingsheets()
        Dim x As Integer, ws As Worksheet
            For x = 1 To activeworkbook.Sheets.Count
            Set ws = activeworkbook.Worksheets(x)
                ws.Name = ws.Range("G2").Value
            Next x
        
    End Sub

or easier

Sub Renamingsheets()
        Dim ws As Worksheet
            For each ws in activeWorkbook.Worksheets
                ws.Name = ws.Range("G2").Value
            Next ws
    End Sub