VBA Remove Duplicate Values From Multiple Columns

Hi, I wonder whether someone could help me please.

I'm using the code below to remove duplicate values from a column of cells, in this case column B.

Sub RemoveDuplicateCells(ws As Worksheet)
    
    Dim i As Long
    Dim LR As Long
    
    Application.ScreenUpdating = False
    
    With ws
        LR = ws.Range("C" & Rows.Count).End(xlUp).Row
        For i = LR To 8 Step -1
            With ws.Range("B" & i)
                If WorksheetFunction.CountIf(ws.Columns("B"), .Value) > 1 Then .ClearContents
            End With
            Next i
        End With
    End Sub

The code works fine, but I'd now like to adapt this so I can remove the duplicates from columns B, C, D and F.

I've tried over the last few days different methods but recieve 'Debug' errors.

I just wondered whether someone may be able to look at this please and offer some guidance on how I may achieve this.

Many thanks and kind regards

Chris

Hi @Sixthsense, thank you for taking the time to come back to me about this.

Unfortunately though, when I run the code I receive a Run time '1004' Method 'Range of Object'_Worksheet failed' error, with debug highlighting this line:

.Range("B1:B" & lrw).RemoveDuplicates 1, xlGuess

Many thanks and kind regards

Chris

HI @romperstomper, thank you for taking the time to reply to my post.

I've made the changes as you kindly suggested, but unfortunately I receive a Run time error '438' Object doesn's support this poperty or method' error.

Many thanks and kind regards

Chris

Hi @romperstomper thank you for coming back to me with this.

I can confirm I'm running 2003 and I would like to remove duplicates from each column individually.

Many thanks and kind regards

Chris

Hi @romperstomper, thnak you very much for coming back tio me with this.

The solution works perfectly, thank you.

All the best and kind regards