Hi there,
I'm trying to add a sorting A-Z feature to a current macro a member of this group helped me with. But haven't been able to do it on my own. I need to sort A-Z based on column C. Current code takes care of finding/deleting unwanted data, but I still need the sort part. Attached is a sample sheet. This is the code I currently have:
Sub CLEAN_UP()
Dim r As Range, x As Range, ff As String, e
For Each e In Array("Decimals", "Photo", "ZZ", "Parts", "Hold")
Set r = Cells.Find(e, , , 2)
If Not r Is Nothing Then
ff = r.Address
If x Is Nothing Then Set x = r
Do
Set x = Union(x, r)
Set r = Cells.FindNext(r)
Loop Until ff = r.Address
End If
Next
If Not x Is Nothing Then x.Delete xlShiftToLeft
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
Thanks!
Bookmarks