Hi,

Is there a way to sort a list by the last 2 letters of a
word in VBA?

Thank you,
LC

One way:

In a blank column (say D), enter:

D2: =RIGHT(A2,2)

and copy down. Then sort on that column, which can be hidden if you
wish.

In article ,
"LC" wrote:

Hi,

Is there a way to sort a list by the last 2 letters of a
word in VBA?

Thank you,
LC

Whoops- didn't see the VBA (which I should have, given the group,
sorry!):

Same answer, but using VBA to populate the column:

Public Sub SortLastTwo()
Dim rng As Range
Set rng = Range("D2:D" & _
Range("A" & Rows.Count).End(xlUp).Row)
With rng
.Value = "=RIGHT(A2,2)"
.Item(1).Sort Key1:=.Item(1), Header:=True
.Clear
End With
End Sub




In article
,
"J.E. McGimpsey" wrote:

One way:

In a blank column (say D), enter:

D2: =RIGHT(A2,2)

and copy down. Then sort on that column, which can be hidden if you
wish.

In article ,
"LC" wrote:

Hi,

Is there a way to sort a list by the last 2 letters of a
word in VBA?

Thank you,
LC