Worked like a charm! thanks


Quote Originally Posted by Trebor76 View Post
Hi hzppby,

Try this while on the 'players' tab:

Option Explicit
Sub Macro1()

    Dim rngCell As Range
    
    Application.ScreenUpdating = False
    
    For Each rngCell In Range("G1", Range("G" & Rows.Count).End(xlUp))
        If IsError(rngCell) = True Then
            rngCell.ClearContents
        End If
    Next rngCell
    
    Application.ScreenUpdating = True

End Sub
HTH

Robert