Need help deleting repeated (duplicate) words in a range. Thanks!

[pedie]

From range("A1:D150") if any word (It could be names like Pedie, Peter, Agie....excel etc etc) get repeated then I want it to be removed.
As there are so many duplicate name being repeated. In this range there should be just 1 word, no repeatation....

Suppose in cells(1) and in cells(4) I have work Excel2010 then I want one of them to be deleted.

Does it make sense, please help.
Thanks Pedie

 

[pedie]

bump!

I guess it is not that hard...but does not know how to begin....

dim cells are string...


Sorry for bumping!

 

[pedie]

Another bump....1hr gone

 

[pedie]

Working now....!
Thanks!

Great day guys!!!

Sub DeleteDups()
     
    Dim x               As Long
    Dim LastRow         As Long
     
    LastRow = Range("A50").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then
            Range("A" & x.EntireRow.Delete
        
    Next x
     
End Sub