alphabetize cells containing extra characters

[ThomasOES]

Hello
I would like to alphabetize a row of chemical elements. Some of the elements have extra characters. What code to alphabetize based on chemical symbol? Below is a sample of the data.

Al

Cr

Cu X99%

Mo

Si

V

C

Ni X95%

Thanks for any help

Tom

 

[Wookiee]

If all you want to do is sort alphabetically but across one row instead of in a column, I think this code should work for you. I just pasted your data into a worksheet for testing, so you'll probably need to revise the actual sort range. Hope that helps!

Sub SortaRow()
'Crafted 28 Jul 2020 by Wookiee at Mr Excel

With ActiveSheet.Sort

   .SortFields.Clear
   .SortFields.Add Key:=Range("A1:H1"), _
      SortOn:=xlSortOnValues, _
      Order:=xlAscending, _
      DataOption:=xlSortNormal
   .SetRange Range("A1:H1")
   .Orientation = xlLeftToRight
   .Apply
   
End With

End Sub

 

[ThomasOES]

Thanks Wookie

 

[ThomasOES]

I was trying

Range("B34:I34").Sort Range("B34:I34"), , , , , , , , , , 1

Seems like it should work, but doesnt

 

[ThomasOES]

Just fixed it

Range("B34:I34").Sort Range("B34"), , , , , , , , , , 2

was sorting by rows instead of columns