How would I create a macro to sort each row alphabetically?

[JonnyEnglish89]

	A	B	C	D	E	F
1	Kylen	Petrisis	Nexor	Silus the Corrupt	Krellus	Conqueror Krellus
2	Constantine	Barracus	Kylen	Daedalus	Elder Constantine
3	Dracorex	Constantine	Daedalus Enraged	Kylen	Nexor	Typhon Vex

<tbody>
</tbody>

I recorded a macro whilst using the custom sort feature in excel but I couldn’t figure out how to modify the recording to iterate though the rows
Any help would be appreciated

 

[Leith Ross]

Hello JonnyEnglish,

Do you want to sort a single column of your choice or all columns at once?

 

[MickG]

This code sorts EACH ROW:-

[COLOR="Navy"]Sub[/COLOR] MG24Nov42
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, RngAc [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range("A2", Range("A" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]Set[/COLOR] RngAc = Range(Cells(Dn.Row, 1), Cells(Dn.Row, Columns.Count).End(xlToLeft))
    RngAc.Sort RngAc(1), xlAscending, Orientation:=xlLeftToRight
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[JonnyEnglish89]

Hi Leith,
I wanted to sort all the columns at once, thanks for responding

 

[JonnyEnglish89]

Thanks Mick that works like a charm!

 

[MickG]

You're welcome