Hello Everyone
I am trying to modify this code but keep getting syntax error
Any help would be appriciated
Thanks
Sub T5_List_Wireless_Account_Access()
Dim e, p As Integer
Range("C2:C65536").Sort Range("C2"), 1
With CreateObject("Scripting.Dictionary")
In Range("BD2").Value
.Item(e) = Empty
Next
For Each e In Range("C2:C65536").Value
p = p + 1
If Not .exists(e) Then
Range("C2:C65536").Rows(p).ClearContents
End If
Next
End With
End Sub
I am trying to modify this code but keep getting syntax error
Any help would be appriciated
Thanks
Sub T5_List_Wireless_Account_Access()
Dim e, p As Integer
Range("C2:C65536").Sort Range("C2"), 1
With CreateObject("Scripting.Dictionary")
In Range("BD2").Value
.Item(e) = Empty
Next
For Each e In Range("C2:C65536").Value
p = p + 1
If Not .exists(e) Then
Range("C2:C65536").Rows(p).ClearContents
End If
Next
End With
End Sub