Rename sheet tabs

[maywj1]

The code below works for renaming all work sheets in the workbook, however I would like the ability to rename sheets 1 thru 10 and keep the current names in worksheets 11-20. Can anyone help with this.

Sub RenameTabs()

'If cell A1 has no content, then that tab is not renamed.

For i = 2 To Sheets.Count
If Worksheets(i).Range("A1").Value <> "" Then
Sheets(i).Name = Worksheets(i).Range("A1").Value
End If

Next

End Sub

 

[rdw72777]

Change this line of code:

For i = 2 To Sheets.Count

to:

For i = 1 To 10

 

[VoG]

Try

Sub RenameTabs()

'If cell A1 has no content, then that tab is not renamed.

For i = 1 To 10
    If Worksheets(i).Range("A1").Value <> "" Then
        Worksheets(i).Name = Worksheets(i).Range("A1").Value
    End If
Next i
End Sub