If they are sorted in Ascending order, just select one cell and click on the
"Sort Descending" button in the toolbar., or do Sort > and follow the menu
for sorting descending.
For a Macro solution In a standard module paste in:
Option Explicit
Option Base 1
'You must First Highlight or Select the cells you
'want to Flip before running this Macro
Sub FlipCells() 'Works only if Cells contain Numbers
Dim MyNum() As Long
Dim cell As Range
Dim Rng As Range
Dim MyCount As Long
Dim i As Long
Dim j As Long
Dim k As Long
Set Rng = Selection
MyCount = Rng.Rows.Count
ReDim MyNum(MyCount)
For i = 1 To MyCount
MyNum(i) = Rng(i).Value
Next i
k = 1
For j = MyCount To 1 Step -1
Rng(k).Value = MyNum(j)
k = k + 1
Next j
End Sub
Sorry - I failed to Highlight that my suggestion only works
if your data is numbers - You indicated dates (which are numbers, so it
should work for you).
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.