I have the filter on in my sheet and below is my code so far.
For some reason that I cannot figure out, it is not sorting the column F to descending, it doesn't look like it's doing anything.
HTML Code:Dim LR As Integer Dim n As Integer LR = shData.Range("A65536").End(xlUp).Row shData.Activate shData.Range("A1:M" & LR).Select Range("A1:M" & LR).Sort Key1:=Range("M1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal
I want the data to sort descending and then I will set n to the last row with data in column F, so that way I can set the row source of the listbox from n to LR and that should be all the empty fields in column f
thanks for any help
Bookmarks