VBA Help

[Silo]

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

 

[Derek Brown]

It would probably be better to explain what you are trying to do as there is so much wrong with the code.
"In Range" line is not recognised.
A 'Next' without a 'For'.
The variable 'e' not being used consistently ........
I suggest that you use the macro recorder to get the code for the sort you are trying to do but I would advise against sorting the whole worksheet, or do you have that much data?