austin350s10
Active Member
- Joined
- Jul 30, 2010
- Messages
- 321
I'm using the below code to sort cells in columns A and B. I want the end product to have column B sorted alphabetically. This code works for the most part but it does not add the first cell into the sort. So cell B1 stays where it was originally even though it is supposed to be in the sort. Does anyone know what I'm doing wrong here?
Code:
With Workbooks(previous).Sheets("StaffList")
.Activate
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Dim oneRange As Range
Dim aCell As Range
Set oneRange = Range(Cells(1, 1), Cells(lastrow, 2))
Set aCell = Range("B1")
oneRange.Sort key1:=aCell, order1:=xlAscending, Header:=xlYes
End With