VBA Rename

Hej,

Jeg er ved at rename en masse ark med følgende formel:

Sub RenameFromA1()
Dim Msg As String, i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Name = Left(Sheets(i).Range("A1").Value, 32) = "" Then
Msg = "Sheet " & i & "(" & Sheets(i).Name & ") has no value in A1. Fix sheet, then rerun."
MsgBox Msg, vbExclamation
Exit Sub
Else
On Error GoTo ErrSheetName
Sheets(i).Name = Left(Sheets(i).Range("A1").Value, 32) & i
i = i + 10
On Error GoTo 0
End If
Next i
Exit Sub
ErrSheetName: Msg = "Sheet " & i & "(" & Sheets(i).Name & ") could not be renamed. Check if name already used."
MsgBox Msg, vbExclamation

End Sub

Når den når til sheet 10 får jeg error. Jeg tror det er pga. den vil rename til det samme som sheet 1? Nogen der kan hjælpe?