Hi,

This program works great except for when I clear any cell in the target
range a (Run-Time error €˜1004: Application-defined or object-defined error)
message pops up. Can this be rewritten to except a blank cell or cell
E5=1,E6=2 and so on when cells are cleared of players names.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E5:E16")) Is Nothing Then
Worksheets(Target.Row - 2).Name = Target.Value
End If

End Sub

Thanks Charles.